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INTRODUCTION 


While currently available relational database management systems 
(RDBMS) allow inclusion of spatial information in a data model, they 
lack tools for presenting this information in an easily 
comprehensible form. Data models can be constructed to represent 
tangible objects with attributes describing their characteristics. 
The locations of these objects can be described with spatial 
coordinates in units such as degrees of latitude and longitude. 
Though these coordinates can easily be reported textually, their 
utility is minimal in that form. A person reading a report of 
objects and their locating coordinates might, at best, comprehend 
the locations of one or two objects at any one time. The locations 
and spatial relationships of several objects would not be apparent. 
The most useful form for presentation of spatial information is a 
contextual drawing. On a scale drawing the spatial relationships 
among selected objects and geographical features become clear. 
Manually plotting objects on a drawing is time-consuming and 
expensive, making it impractical for ad hoc reports. Computer- aided 
design (CAD) software packages provide adequate functions for 
producing drawings, but still require manual placement of symbols 
and features . This suggests the need for a bridge between the ad 
hoc reporting features of the RDBMS and the automated drawing 
capabilities of the CAD system. 

This project is an exercise in solving a specific example of the 
above problem. Graphic/image diagrams displaying elements of a 
telecommunications network on a map could prove invaluable as a tool 
for planning and management of complex or wide-ranging networks . The 
success of such a tool is dependent on timely access to information 
about the network and also on the ability to quickly convert that 
information into a visual form. Given are the Sybase RDBMS 
containing a data model of the network and the AutoCAD drafting 
software with suitable maps. The objective of this project is an 
interface which will allow AutoCAD to function as a front-end to the 
Sybase server. This interface includes a customized AutoCAD menu, 
specialized Autolisp commands and functions, and C programs 
incorporating functions from the Sybase DB-Library. Development was 
carried out on a Sun 3 workstation, the target hardware, and an IBM 
PC clone. 

The milestones for progress contained in the project proposal were 
followed throughout the project, and the following sections of this 
report describe the activities leading to their completion. 



PHASE 1: AUTOCAD FROM FILE 


The objective of this first phase of the project is the demonstration 
of a graphic display of telecommunications circuits. Each circuit 
will be plotted on a map as a line between the circuit's two 
endpoints. Each endpoint will be identified by the facility code of 
its location. Each circuit will be identified by its own unique 
code. The map will be displayed on a CRT screen. All attribute 
values describing the circuits will be provided in a simple local 
disk file. The salient process must convert the given attribute 
values into the graphic display in a way that is convenient and 
timely for the user. 

The AutoCAD drafting software, version 10, was chosen for the graphic 
display. Version 10 is the first version available for the Sun 3 
workstation, which is the target hardware of this project. AutoCAD 
has a well-established user base on other hardware, however, making 
it more likely that potential users will have experience with its 
fundamental features . AutoCAD provides the Autolisp interpreter, 
which allows creation of new functions and commands. AutoCAD's 
standard menu is accessible for customization to specialized tasks. 
The map used for the display is an equatorial Mercator projection 
generated on an MSDOS PC using the WorldDXF software purchased from 
Micro Map & CAD, 9642 W. Virginia Cir, Lakewood, CO 80226. To 
minimize storage and loading time a thinning radius of 300 Km was 
used for testing purposes. Utility functions provided with the map 
generator require that the central meridian value of -75.00 
degrees be stored in the AutoCAD variable userrl . For this project 
the map was saved with a view of the contiguous US. This primary view 
is shown automatically whenever the map is loaded. In addition, a 
customized menu was compiled while this map was loaded. The 
subsequent save of the map causes this menu to be automatically 
loaded with the map. 

The data describing the telecommunications circuits to be plotted 
was created with a text editor and stored as a disk file in the 
AutoCAD working directory. The file format was named circuits, and 
is shown in detail later in this document. Each record contains the 
attribute values for one circuit. Included in these attributes are 
the latitude and longitude for location of each endpoint. 

The file mapckt.lsp contains all the specialized Autolisp commands 
and functions for this project . Also included are utility map 
functions provided by Micro Map & CAD and written by Randy George. 
These utility functions are specific to the equatorial mercator maps 
generated by WorldDXF, and aid in converting latitude, longitude 
coordinates to drawing coordinates on the map. mapckt.lsp must be 
loaded with the Autolisp load function before use. 

To read the circuits file, the Autolisp command lladdckts was 
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PHASE 2: SYBASE TO FILE 
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For each row returned, it uses its secondary database structure to 
select a latitude and longitude for each endpoint. This is done by 
matching keys through three tables as described above. The attribute 
values for each circuit and the latitudes and longitudes in character 
form are delimited by spaces and written as a record of the circuits 
disk file. If the program concludes normally, it writes the message 
"SUCCEED" to the results file. This message does not, however, 
indicate the success of the database selection process . gtdbckt 
requires a valid database server password, a name for the circuits 
file, and a name for the results file. These values are provided as 
command line arguments. 

Phase 2 of the project solution was concluded by a successful 
demonstration of selection from the test database and creation of a 
disk file. The SQL scripts bldckt . sql and popckt.sql were used to 
build and populate the test database. gtdbckt was run from the 
AutoCAD working directory to produce a new circuits file in that 
directory. The new circuits file was compared with that created in 
Phase 1, and found to contain identical data in the correct format 


PHASE 3: SYBASE TO AUTOCAD 


The objective of the third phase of the project is a demonstration 
of the combination of Phase 1 and Phase 2. This requires that the 
process of selection from the database be easily controlled from the 
graphic display system. The data resulting from that selection must 
then be available for plotting on the map. 

The Autolisp command seldbckts was created and added to mapckt.lsp 
for Phase 3. This command prompts the user for a database server 
password and a circuits file name. It initializes an empty results 
file and an empty circuits file with the name entered. It then runs 
the C program gtdbckt with arguments for password, circuits file 
name, and results file name. This is done with the AutoCAD shell 
command as an independent process. AutoCAD waits until the process 
is finished. seldbckts then reads the results file to check for a 
"SUCCEED" message written by gtdbckt. If the message is found, the 
command indicates successful selection and the name of the circuits 
file. 

Phase 3 of the project solution was concluded by a successful 
demonstration of database selection controlled from AutoCAD and 
plotting of the resulting data. The map, menu, and Autolisp commands 
were loaded as in Phase 1. seldbckts was run from the menu. After 
entering a valid password and a circuits file name, seldbckts 
indicated successful selection from the database. As in Phase 1, 
lladdckts was run. The circuits file name entered was that created 
by database selection. The circuits plotted on the map were found 
to be identical to Phase 1 . The entire process was accomplished with 
a minimum of user input in a reasonably short time. 


PHASE 4 : AUTOCAD TO SYBASE 


Phase 4 of the project is essentially a reversal of the first three 
phases . It allows the user to plot new circuits on the map by 
supplying attribute values to the graphic display system. All 
attribute values may then be extracted from the map to create a disk 
file. The values from the disk file may inserted into the database 
by a process controlled from the graphic display system. 

The Autolisp command lladdckt prompts the user for all attribute 
values describing a circuit, including the latitudes and longitudes 
of the endpoints. It calls the function insckt (described in Phase 
1) with a list of attribute values for the circuit to be plotted on 
the map . 

The Autolisp command extckts prompts the user for the name of the 
circuits file to be created. It then searches the drawing "database" 
to build a set of the internal entity names of all inserts of the 
block llckt. It indicates to the user the number of inserts found. 
With each entity name in the list it calls the function extckt, which 
returns a list of all attribute values for that circuit with its 
endpoints. It then writes a record consisting of the attribute 
values with space delimiters to the circuits file. 

The function extckt receives the entity name of an insertion of the 
llckt block. It extracts the attribute values from the insertion. 
These values include the entity handles of the two related endpoints. 
For each endpoint it converts the entity handle into an entity name. 
It calls the function extept with each entity name, and receives a 
list of the attribute values for the endpoint . extckt returns a list 
containing the attribute values from the circuit and the endpoints. 
The function extept receives the entity name of an insertion of the 
llept block. It extracts the attribute values from the insertion 
and returns them in a list . 

A C program, ptdbckt, was created to insert rows into the circuit 
database table from the circuits disk file. This program was 
compiled on the Sun workstation, and includes the Sybase DB- Library 
interface to the database . The program reads each record from the 
circuits disk file and uses the attribute values to form a SQL insert 
transaction to add a new row to the circuit table. It does not attempt 
to insert new facilities, organizations, or wire centers, but assumes 
that the endpoints of the new circuits are existing facilities. In 
a live database it would be necessary to implement triggers to 
prevent insertion of new rows that violate this assumption. 

The Autolisp command insdbckts prompts the user for a database server 
password and a circuits file name. It initializes an empty results 
file, and opens the circuits file to determine its presence. It then 
runs the C program ptdbckt with arguments for password, circuits file 
name, and results file name. This is done with the AutoCAD shell 



command as an independent process . AutoCAD waits until the process 
is finished. insdbckts then reads the results file to check for a 
"SUCCEED" message written by ptdbckt. If the message is found, the 
command indicates successful insertion to the database. 

Phase 4 of the project solution was concluded by a successful 
demonstration using the new elements described. The map, menu, and 
Autolisp commands were loaded. lladdckt was used to plot new 
circuits on the map by prompting the user to enter attribute values, 
extckts was used to extract attribute values to a circuits file named 
by the user, insdbckts was then run. After entering a valid password 
and the circuits file name from extckts, it indicated successful 
insertion into the database. To verify the success of lladdckt and 
extckts the circuits file was examined to compare its values with 
those entered by the user. Selection of the new rows from the 
database was used to provide a comparison for verification of 
ptdbckt. Both comparisons produced identical values. Excepting the 
additional user input needed to plot new circuits on the map, this 
process was found to function as easily as that of Phase 3. 


CONCLUSION 


From the beginning of this project it was known that certain 
limitations would be encountered. The detail of the map display was 
limited by the processing speed of the hardware platform. For this 
project this detail was limited by using a large thinning radius when 
generating the map. In the future it would be desireable to 
selectively limit the map detail in unused areas. Version 10 of the 
AutoCAD software was found to have only limited capabilities for 
controlling external processes. A more interactive capability would 
improve the interface used in this project. It is hoped that future 
versions will provide this improvement. 

This project has demonstrated a bridge between the data model of an 
RDBMS and the graphic display of a CAD system. It has been shown 
that the CAD system can be used to control the selection of data with 
spatial components from the database and then quickly plot that data 
on a map display. It has also been shown that the CAD system can be 
used to extract data from a drawing and then control the insertion 
of that data into the database. These demonstrations have been 
successful in a test environment that incorporates many features of 
known working environments. This suggests that the techniques 
developed in this project could be adapted for practical use. 


SPATIAL DATABASE NORMALIZED SCHEMA 


circuit (nsi_ckt_id, type_circuit , kbps , signal, tx_medium, end_point 1 , 
end_point2 ) 

facility (org_key, facility) 

torg (org_key, organization, commercial_phone) 

wire center (clli, npa, nxx, lata, locality, state, latitude, longitude) 



These database tables are intended only for the purpose of testing 
and demonstrating the functions of the AutoCAD graphic front-end 
project. Wherever possible their attributes coincide with those of 
the NASA Science Internet Database (NSI db) . Some tables and 
attributes required for this project have not been implemented in 
the NSI db . It is hoped that the design of this project will in the 
future allow transfer of data with a minimum of adaptation. 

Please note that all attributes described below are specified not to 
accept null values . Though some of these attributes are merely 
descriptive, they require non-null values to protect the integrity 
of derivative data structures in other parts of the system. The 
space-delimited disk files used by AutoCAD for input and output of 
block attributes would be corrupted by null values. In addition, 
AutoCAD will not allow null values to be entered as block attribute 
values. Specifying non-null default values for database attributes 
might be used as an alternative method of solving this problem. 


Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
circuit 

1) Name of Attribute: 

nsi_ckt_id 

2) Field Characteristics: 

char (20) 

3) Index Name and Characteristics: 

unique clustered index ckt_index on circuit (nsi_ckt_id) 

4 ) Nulls : 

not null 

5) Keys: 

pk 

6) Domain Rules: 

Unique identifier for circuit. 

Prevent update by access control. 

Service and material id. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
circuit 

1) Name of Attribute: 



type_circuit 

2) Field Characteristics: 

char (10) 

3) Index Name and Characteristics: 

no index 

4 ) Nulls : 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

(e.g. common_carrier , ethernet) 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database : 
spatial 

Name of the Table : 
circuit 

1) Name of Attribute: 

kbps 

2) Field Characteristics: 

char (04) 

3) Index Name and Characteristics: 

no index 

4) Nulls: 

not null 

5 ) Keys : 

not a key field 

6) Domain Rules: 

Data rate of circuit in thousand bits per second. 
See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
circuit 

1) Name of Attribute: 

signal 

2) Field Characteristics: 

char (11) 

3) Index Name and Characteristics: 

no index 

4) Nulls: 
not null 

Keys : 


5 ) 


not a key field 
6) Domain Rules: 

Signal type of circuit (e.g. ANALOG, DIGITAL). 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
circuit 

1) Name of Attribute: 

tx_medium 

2) Field Characteristics: 

char (20) 

3) Index Name and Characteristics: 

no index 

4 ) Nulls : 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Transmission medium of circuit (e.g. TERRESTRIAL) . 
See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table : 
circuit 

1) Name of Attribute: 

end_point 1 

2) Field Characteristics: 

char ( 10 ) 

3) Index Name and Characteristics: 

nonclustered index cel_index on circuit (end_pointl ) 

4 ) Nulls : 

not null 

5) Keys: 

fk->facility . facility INS RST 

UPD RST 

6) Domain Rules: 

Facility of first endpoint of circuit. 

Name of Database Server: 
lilmud 

Name of the Database : 
spatial 



Name of the Table : 
circuit 

1) Name of Attribute: 

end_point2 

2) Field Characteristics: 

char ( 10 ) 

3) Index Name and Characteristics: 

nonclustered index ce2_index on circuit (end_point2 ) 

4 ) Nulls : 

not null 

5 ) Keys : 

f k->facility . facility INS RST 

UPD RST 

6) Domain Rules: 

Facility of second endpoint of circuit. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
facility 

1) Name of Attribute: 

org_key 

2) Field Characteristics: 

int 

3) Index Name and Characteristics: 

unique clustered index fac_index on 
facility (org_key, facility) 

4 ) Nulls : 

not null 

5) Keys: 

pk (part of composite: facility . org_key, facility) 

f k->torg . org_key INS RST 

6) Domain Rules: 

Prevent update by access control. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
facility 

1) Name of Attribute: 

facility 

2) Field Characteristics: 
char (20) 

Index Name and Characteristics: 


3 ) 



unique clustered index fac_index on 
facility (org_key, facility) 

4) Nulls: 

not null 

5) Keys: 

pk (part of composite: facility . org_key, facility) 

->circuit . end_point 1 DLT RST 
->circuit . end_point2 DLT RST 

6) Domain Rules: 

Facility code of facility. 

Prevent update by access control. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table : 
torg 

1) Name of Attribute: 

org_key 

2) Field Characteristics: 

int 

3) Index Name and Characteristics: 

unique clustered index org_index on 
torg (org_key, organization) 

4 ) Nulls : 

not null 

5) Keys: 

pk (part of composite: torg . org_key, organization) 

->facility . org_key DLT RST 

6) Domain Rules: 

Unique artificial key for torg. 

Prevent update by access control. 

See NS I db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
torg 

1) Name of Attribute: 

organization 

2) Field Characteristics: 

char (30) 

3) Index Name and Characteristics: 

unique clustered index org_index on 
torg (org_key, organization) 



4) Nulls: 

not null 

5) Keys: 

pk (part of composite: torg . org_key, organization) 

6) Domain Rules : 

Identifier of torg. 

Prevent update by access control. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table : 
torg 

1) Name of Attribute: 

commercial_phone 

2) Field Characteristics: 

char (20) 

3) Index Name and Characteristics: 

no index 

4) Nulls: 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Phone_rule: (nnn) nnn-nnnn 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database : 
spatial 

Name of the Table : 
wire_center 

1) Name of Attribute: 

clli 

2) Field Characteristics: 

char (11) 

3) Index Name and Characteristics: 

unique clustered index wct_index on wire_center (clli) 

4) Nulls: 

not null 

5) Keys: 

pk 

6) Domain Rules: 

Unique identifier for wire_center. 

Prevent update by access control. 


Name 


See NSI db design, 
of Database Server: 
lilmud 
Name of the Database: 
spatial 

Name of the Table: 
wire_center 

1) Name of Attribute: 

npa 

2) Field Characteristics: 

char (03) 

3) Index Name and Characteristics: 

nonclustered index wcx_index on wire_center (npa, nxx) 

4 ) Nulls : 

not null 

5) Keys: 

(part of composite: npa, nxx) 
lookup->substring (commercial_phone, 2,3) 

6) Domain Rules: 

Areacode of wire_center. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database : 
spatial 

Name of the Table : 
wire_center 

1) Name of Attribute: 

nxx 

2) Field Characteristics: 

char ( 03 ) 

3) Index Name and Characteristics: 

nonclustered index wcx_index on wire_center (npa, nxx) 

4) Nulls: 

not null 

5) Keys: 

(part of composite: npa, nxx) 
lookup->substring (commercial_phone, 6,3) 

6) Domain Rules: 

Exchange of wire_center. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table : 



wire_center 

1) Name of Attribute: 

lata 

2) Field Characteristics: 

char (03) 

3) Index Name and Characteristics 

no index 

4) Nulls: 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Lata of wire_center. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table : 
wire_center 

1) Name of Attribute: 

locality 

2) Field Characteristics: 

char (26) 

3) Index Name and Characteristics 

no index 

4 ) Nulls : 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Locality of wire_center. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
wire_center 

1) Name of Attribute: 

state 

2) Field Characteristics: 

char (02) 

3) Index Name and Characteristics 

no index 

4 ) Nulls : 



not null 

5) Keys: 

not a key field 

6) Domain Rules: 

State of wire_center. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table : 
wire_center 

1) Name of Attribute: 

latitude 

2) Field Characteristics: 

float 

3) Index Name and Characteristics: 

no index 

4) Nulls: 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Latitude of wire_center in decimal degrees 
Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table : 
wire_center 

1) Name of Attribute: 

longitude 

2) Field Characteristics: 

float 

3) Index Name and Characteristics: 

no index 

4 ) Nulls : 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Longitude of wire_center in decimal degree 


SQL SCRIPTS 


/* 

** Script : 

** Author: 

** Interpreter: 

** Purpose: 

* * 

* * 

*/ 


bldckt.sql (build circuit) 

Tom Brownfield 1990 
Sybase isql 

Create database objects necessary for 
demonstrating the AutoCAD graphic 
front-end with circuits data. 


/* Use the spatial database. */ 
use spatial 
go 


/* 

Create tables. */ 




create table circuit 





(nsi ckt_id 

char (20) 

not 

null 


, type_circuit 

char (10) 

not 

null 


, kbps 

char (04) 

not 

null 


, signal 

char (11) 

not 

null 


, tx_medium 

char (20) 

not 

null 


, end pointl 

char (10) 

not 

null 


, end_point2 
) 

char (10) 

not 

null 

go 




create table facility 





(org key 

int 

not 

null 


, facility 
) 

char (10) 

not 

null 

go 




create table torg 





(org_key 

int 

not 

null 


, organization 

char (30) 

not 

null 


, commercial phone 
) 

char (20) 

not 

null 

go 




create table wire_center 




(clli 

char (11) 

not 

null 


,npa 

char (03) 

not 

null 


, nxx 

char (03) 

not 

null 


, lata 

char (03) 

not 

null 



not null 
not null 
not null 
not null 


/* Create indexes. */ 

create unique clustered index ckt_index 
on circuit (nsi_ckt_id) 
go 


, locality 
, state 
, latitude 
, longitude 
) 


char (2 6) 
char (02) 
float 
float 


go 


create unique clustered index fac_index 
on facility (org_key, facility) 
go 

create unique clustered index org_index 
on torg (org_key, organization) 
go 

create unique clustered index wct_index 
on wire_center (clli) 
go 

create nonclustered index wcx_index 
on wire_center (npa, nxx) 
go 

/* end */ 

/* 

** Script: 

** Author: 

** Interpreter: 

** Purpose: 

* * 

★ * 

*/ 


popckt . sql (populate circuit) 

Tom Brownfield 1990 
Sybase isql 

Populate database tables necessary 
for demonstrating the AutoCAD graphi 
front-end with circuits data. 


/* Use the spatial database. */ 
use spatial 
go 

/* Insert wire_center data. */ 
begin tran 

insert into wire_center values 

( 'X' 



, * 206 • 

, ' 111 ' 

, '001 • 

, ' Xtown ' 

, 'WA' 

, 48.0 

,- 122.0 

) 

commit tran 

go 

begin tran 

insert into wire_center values 
( . Y > 

, ’402 ' 

, '222 • 

, ' 002 * 

, ' Ytown ' 

, 'NB' 

, 38.0 

,- 97.0 

) 

commit tran 

go 

begin tran 

insert into wire_center values 
( ’ A’ 

, ' 415 ' 

, ’ 335 ’ 

, ’ 003 ' 

, ’Mountain View' 

, 'CA' 

, 38.0 

,- 122.0 

) 

commit tran 

go 

begin tran 

insert into wire_center values 
( ’B’ 

, ’ 713 ' 

, ’444 ' 

, ’004 ' 

, ' Houston ' 



, 'TX' 

, 28.0 

,- 97.0 

) 

commit tran 
go 

begin tran 

insert into wire_center values 
( 'C' 

, '818 ' 

, ' 555 ' 

, ' 005 ' 

, ' Pasadena ' 

, 'CA' 

, 34.0 

,- 118.0 

) 

commit tran 
go 

/* Insert torg data. */ 
begin tran 

insert into torg values 
(1 

, ' Xorg ' 

, ' ( 206 ) 111 - 1111 ' 

) 

commit tran 
go 

begin tran 

insert into torg values 
(2 

, ' Yorg ' 

, * ( 402 ) 222 - 2222 ' 

) 

commit tran 
go 

begin tran 

insert into torg values 
(3 

, ’NASA Ames ' 

, ’ ( 415 ) 335 - 3333 ’ 

) 



commit tran 
go 

begin tran 

insert into torg values 
(4 

, 'NASA Johnson' 

, ' ( 713 ) 444-4444 ' 

) 

commit tran 
go 

begin tran 

insert into torg values 
(5 

, 'NASA JPL ' 

, ’ ( 818 ) 555 - 5555 ’ 

) 

commit tran 
go 

/* Insert facility data. */ 
begin tran 

insert into facility values 
(1 

, 'XXX' 

) 

commit tran 
go 

begin tran 

insert into facility values 
(2 

, ' YYY ’ 

) 

commit tran 
go 

begin tran 

insert into facility values 
(3 

, ’ARC' 

) 

commit tran 
go 



begin tran 

insert into facility values 
(4 

, ’JSC' 

) 

commit tran 
go 

begin tran 

insert into facility values 
(5 

, ' JPL ' 

) 

commit tran 
go 

/* Insert circuit data. */ 
begin tran 

insert into circuit values 
( ' XXXYYY ' 

, ' NSN ’ 

, ’ 224 ’ 

, 'DIGITAL' 

, 'TERRESTRIAL' 

, 'XXX' 

, ' YYY ' 

) 

commit tran 
go 

begin tran 

insert into circuit values 
( ' NSIARC_JSC ' 

, 'NSN' 

, ' 448 ' 

, 'DIGITAL ' 

, 'TERRESTRIAL' 

, 'ARC' 

, ' JSC ' 

) 

commit tran 
go 


begin tran 

insert into circuit values 



( ’NSIARC_JPL' 

, ' NSN ' 

, ' 168 ' 

, ’DIGITAL’ 

, ’TERRESTRIAL’ 

, ’ARC* 

, ’ JPL’ 

) 

commit tran 
go 

begin tran 

insert into circuit values 
( ’ NSI JPL_JSC ’ 

, ’NSN’ 

, ’ 168 ’ 

, ’DIGITAL ’ 

, ’TERRESTRIAL’ 

, ’JPL’ 

, ’ JSC ’ 

) 

commit tran 
go 

/* List all entries in the database. */ 
print ’*** wire_center ***’ 
select * from wire_center 
go 

print ’*** torg ***’ 
select * from torg 
go 

print ’*** facility ***’ 
select * from facility 
go 

print ’*** circuit ***’ 
select * from circuit 
go 


/* end */ 


DISK FILE SCHEMA 


circuits (nsi_ckt_id, type_circuit , kbps, signal, tx_medium, end_pointl 
, latitudel, longitudel, end_point2, latitude2, longitude2) 

results (success) 


These disk files provide the needed data storage between the database 
system and the AutoCAD system. They are sequential text files 
contained in the current working directory. All attributes are 
variable-length character fields delimited by spaces. Spaces are 
optional at the end of a record. 

The circuits file contains latitudes and longitudes which are 
character representations of values contained in the database as 
wire__center . latitude and wire_center . longitude . All other attribute 
values are identical to those in the database. 

The results file indicates the results of a DB-LIBRARY C program 
process. Success will contain the value "SUCCEED" when the program 
writing it is successfully completed. This does not, however, 
indicate the success or failure of individual database transactions . 
At this time such indications are returned as database messages and 
errors through standard console output. Additional attributes should 
be added to this file if this interface is to be used in an 
environment where the user requires improved control information. 



AUTOCAD MENU 


The following is a partial listing of mapckt.mnu from the 
beginning of the file through the modified section: 

* * *BUTTONS 


$pl=* 

A C A C 

A B 

A 0 

A G 

A D 

A E 

A rp 

***AUX1 


$pl=* 

A C A C 

A B 

A 0 

A G 

A D 

A E 

A ip 

***POPl 
[Tools ] 

[OSNAP] A C A C$pl= $pl=* OSNAP \ 
[CENter] CENTER 
[ENDpoint ] ENDPOINT 
[INSert ] INSERT 
[INTersec] INTERSEC 
[MIDpoint ]MIDPOINT 
[NEAre St] NEAREST 
[NODe] NODE 
[PERpend] PERPEND 
[QUAdrant ] QUADRANT 
[QUICK, ] QUICK, A Z 
[TANgent ] TAN GEN 
NONE 
[ ] 

[Cancel] A C A C 
[U] A C A CU 
[Redo] A C A CREDO 
[Redraw] 'REDRAW 


***P0P2 

[Draw] 

[Line] * A C A C$S=X $s=line line 

[Arc] * A C A C$S=X $s=poparc arc 

[Circle] * A C A C$S=X $s=popcircl circle 

[Polyline ] * A C A C$S=X $s=pline pline 

[ Insert ] A C A Csetvar attdia 1 $s=insert insert 

[Dtext ] * A C A C$S=X $s=Dtext Dtext 

[Hatch] A C A C$i=hatchl $i=* 

***P0P3 

[Edit] 

[Erase ] * A C A Cerase si auto 

[Move ] * A C A Cmove si auto 

[Copy] * A C A Ccopy si auto 

[Trim] * A C A C$S=X $s=trim trim auto 

[Extend] * A C A C$S=X $s=extend extend auto 

[Stretch] * A C A C$S=X $s=stretch stretch crossing 

[Polyedit ] * A C A C$S=X $s=pedit pedit 


* **POP4 
[Display] 

[Window] ’ zoom w 
[Previous] 'zoom p 
[Dynamic] 'zoom d 
[Pan] 'pan 

[3D View] A C A C$i=3dviews $i=* 

***POP5 
[Modes ] 

[Drawing Aids ] ' ddrmodes 
[Entity Creation] ' ddemodes 
[Modify Layer] 'ddlmodes 

* **POP 6 
[Options ] 

[Ashade] A P (cond ((null C: SCENE) + 

(vmon) (prompt "Please wait... Loading ashade. ") + 
(load "ashade") ) (T (princ) ) ) A P$i=as $i=* 

[3D Objects] A P (cond ((null C:CONE) + 

(vmon) (prompt "Please wait... Loading 3D Objects. ") + 
(load "3d")) (T (princ))) A P$i=3D0b jects $i=* 

[Fonts ] A C A C$i=fontsl $i=* 

[DXFScript] A C A CDXFSCRIPT SCRIPT; D : /S/DXF GRAPHSCR; 

[Stack] A C A CSTACK 
[MOD] A C A CMOD 



***P0P7 

[File] 

[Save] A C A CSave 
[End] A C A Cend 

[Quit ] A C A C$S=X $s=quit quit 
[~— ] 

[Plot] A C A Cplot 
[Print ] A C A Cprplot 


***P0P8 
[Mercator Map] 

[LOAD Merc] A C A C ( load "mercator”) 

[LOAD Merc3D] A C A C (load "merc3D M ) 

[Lat Long] A C A CLatLong 

[Map Dist ] A C A CMapDist 

[Add Pt ] A C A CLLaddPt 

[Add Pts] A C A CLLaddPts 

[Del Pt] A C A CLLdelPt 

[Del Pts] A C A CLLdelPts 

[Map Radius ] A C A CMapRadius 

[Add Lines ] A C A CLLaddLines 

[WDBII] A C A CWDB WWDBtoDXF script load 

***POP9 

[Map Circuits] 

[LOAD Circuits] A C A C (load "mapckt") 

[Add Ckts] A C A CLLaddCkts 

[Add Ckt] A C A CLLaddCkt 

[Del Ckts] A C A CDelCkts 

[Ext Ckts] A C A CExtCkts 

[Sel Ckts] A C A CSelDBCkts 

[Ins Ckts] A C A CInsDBCkts 



AUTOLISP COMMANDS AND FUNCTIONS 

■ *★*★★*★*** 
t 

; * File : 

;* Interpreter: 

; * Purpose : 

. * 
r 

• ********** 
t 

• ********** 

; *Global variables and utility map functions from 
; *mercator . lsp by Randy George 8/15/88. Modifications 
; *are noted by comments. 

;* Global variables: 

; earth : earth radius in meters 6371 
; lat : latitude 

; long : longitude 

; inc : lat or long increment 
; vb : Blipmode variable 

; vc : Cmdecho variable 


mapckt . lsp (map circuits) 

AutoCAD Autolisp version 10 

Provide AutoCAD commands and functions 

to plot circuits on a world-mercator map. 


• ★★*★★*■**** 


;* Utility map functions: 

( vmon) 

(prompt "\nLoading. Please wait...") 

( terpri) 

(defun MODES (a) 

(setq MLST ' () ) 

(repeat (length a) 

(setq MLST (append MLST (list (list (car a) (getvar 
(car a) ) ) ) ) ) 

(setq a (cdr a) ) ) 


(defun MODER () 

(repeat (length MLST) 

(setvar (caar MLST) (cadar MLST) ) 
(setq MLST (cdr MLST) ) 

) 

) 

(defun *ERROR* (st) 

(moder) 

(terpri) 

(princ "\nError: " ) 

(princ st) 

(princ) 


(defun sqr(x) 

( * x x) 

) 

(defun arccos (x) 

(if (/= (abs x) 1.0) 

(- (* pi 0.5) (atan (/ x (sqrt (- 1.0 (* x x) ) ) ) ) ) 
(* (- 1.0 x) pi 0.5) 

) 

) 

(defun arcsin (x) 

(if (/= (abs x) 1.0) 

(atan (/ x (sqrt (-1.0 (* x x) ) ) ) ) 

( * x pi 0.5) 

) 


) 


(defun arctanh (x) 

(if (/= x 1.0) 

(/ (log (/ (+ 1.0 x) (- 1.0 x) ) ) 2.0) 

(list 99999999.0) 

) 

) 

(defun tanh (x / el e2) 

(setq el (exp x) ) 

(setq e2 (exp (* -1.0 x) ) ) 

(/ (- el e2 ) (+ el e2) ) 

) 

(defun Radian ( deg ) 

(* deg 0.0174533) 

) 

(defun Degree ( rad) 

(* 57.29578 rad) 

) 

(defun Meridian (LongR LongRO / delta) 

(setq delta (- LongR LongRO) ) 

(if (< delta -3.1415927) 

(setq delta (+ delta 6.2831853)) 

) 

(if (> delta 3.1415927) 

(setq delta (- delta 6.2831853)) 

) 

(setq delta delta) 

) 


(defun Mercator (LongR LongRO LatR radius /) 

(if (< (abs (Radian LatR)) 1.397) 

(progn 

(setq LongR (Meridian (Radian LongR) (Radian LongRO) ) ) 
(setq x (* radius LongR)) 

(setq y (* radius (arctanh (sin (Radian LatR))))) 

(list x y) 

) 

(list 0.0 0.0) 

) 

) 



(defun InvMeridian (delta LongRO / ) 

(setq delta (+ delta LongRO) ) 

(if (< delta -3.1415927) 

(setq delta (+ delta 6.2831853)) 

) 

(if (> delta 3.1415927) 

(setq delta (- delta 6.2831853)) 

) 

(setq delta delta) 

) 

(defun InvMercator ( pt LongRO radius / delta ) 

(setq delta (/ (car pt) radius)) 

(setq LongR (Degree (InvMeridian delta (Radian LongRO)))) 
(setq LatR (Degree (arcsin (tanh (/ (cadr pt) radius))))) 
(list LatR LongR) 


(defun Arc ( pt radius / ) 

(setq LongR (Degree (/ (car pt) radius))) 

(setq LatR (Degree (arcsin (tanh (/ (cadr pt) radius))))) 
(list LatR LongR) 


; Parse input string into list of strings 
(defun sparse (S / LL TMP CNT) 

(setq TMP "" CNT 0) 

(while (< CNT (strlen S) ) 

(setq CNT (1+ CNT)) 

(cond 

((and (or (= (substr S CNT 1) ",") 

(= (substr S CNT 1) " ")) (/= TMP ””)) 

(setq LL (cons TMP LL) TMP ” ” ) ) 

( (= (substr S CNT 1) ", ") ) 

( (= (substr S CNT 1) " ")) 

(t (setq TMP (strcat TMP (substr S CNT 1) ) ) ) 

) 

) 

;*modified to prevent adding null element to end of list 
; *Tom Brownfield 12/5/90 
(if (/= TMP "") 

(reverse (cons TMP LL) ) 

(reverse LL) 


) 




■ ********** 


; * Main Program 

• ********** 

9 

. ********** 

9 

;* Function: insckt (insert a circuit) 

;* Author: Tom Brownfield 1990 

;* Purpose: Insert blocks for a circuit and two endpoints 

;* and draw a line between the endpoints. 

; * Inputs: central meridian, earth radius, attribute 

;* values for circuit and endpoints. 

;* Outputs: command line. 

9 

(defun insckt 

( central earth 

elatl elongl facl elat2 elong2 fac2 
cktid tckt kbps sgnl txmed 
/ errcnt lat long ptl epleh pt2 ep2eh lineeh pt3) 

9 

;*Initialize error count. 

(setq errcnt 0) 

9 

; *Convert latitude, longitude to float. 

(setq lat (atof elatl)) 

(if (null lat) (setq lat 0.0)) 

(setq long (atof elongl) ) 

(if (null long) (setq long 0.0)) 

• * 

9 

; *Get drawing coordinates for endpointl by calling the 
; *the function mercator with latitude, longitude, 
;*central meridian as arguments. 

(setq ptl (mercator long central lat earth) ) 

(if (and (= (car ptl) 0.0) (= (cadr ptl) 0.0)) 

(progn 

(setq errcnt (1+ errcnt) ) 

(princ "**** Invalid latitude/longitude ***") 
(terpri) 

(princ (rtos lat 2 4)) 

(princ ", " ) 

(princ (rtos long 2 4)) 

) 

) 

9 

; *Get drawing coordinates for endpoint2 as above. 

(setq lat (atof elat2)) 

(if (null lat) (setq lat 0.0)) 


** ife €HANK W)T Ml %?*£) 



(setq long (atof elong2) ) 

(if (null long) (setq long 0.0)) 

(setq pt2 (mercator long central lat earth) ) 

(if (and (= (car pt2) 0.0) (= (cadr pt2) 0.0)) 

(progn 

(1+ errcnt) ) 

Invalid latitude/longitude ***") 


(setq errcnt 
(princ "**** 
(terpri) 
(princ (rtos 
(princ ",") 
(princ (rtos 


lat 24)) 


long 24)) 


; ^Execute block inserts of endpoints, at the drawing 
; Coordinate points, with attribute values. 

; *Get the entity handles of the endpoint inserts. 

; *Draw a line between the endpoints. 

; *Get the entity handle of the line. 

; *Get the coordinates of the midpoint of the line. 

; *Execute a block insert of the circuit, at the 
;*midpoint, with attribute values including the three 
; *entity handles of the related entities. 

(if (= errcnt 0) 

(progn 

(command "insert" "llept" ptl ”" "" "" facl elatl 
elongl ) 

(setq epleh (cdr (assoc 5 (entget (entlast) ) ) ) ) 
(command "insert" "llept" pt2 "" "" " " fac2 elat2 
elong2 ) 

(setq ep2eh (cdr (assoc 5 (entget (entlast) ) ) ) ) 
(command "LINE" ptl pt2 " ") 

(setq lineeh (cdr (assoc 5 (entget (entlast) ) ) ) ) 

(setq pt3 (polar ptl (angle ptl pt2) 

(/(distance ptl pt2)2))) 

(command "insert" "llckt" pt3 "" "" "" cktid tckt kbp 
sgnl 

txmed lineeh epleh ep2eh) 

) 

) 


Command: lladdckts (add circuits at latitude, longitude) 

Author: Tom Brownfield 1990 

Purpose: Read attributes from a circuits file, 


and plot 



Inputs : 


★ 

★ 

* 


; * Outputs 


the circuits with endpoints on the map using 
latitudes and longitudes from the file, 
command line 
circuits disk file 
command line 


(defun C:lladdckts 

( 

/ central earth datafl fl 
slnl slstl slenl 
cktid tckt kbps sgnl txmed 
facl elatl elongl 
fac2 elat2 elong2 

) 


; *Save and turn off echo and blip. 

(modes 1 ( "CMDECHO" "BLIPMODE " ) ) 

(setvar "CMDECHO" 0) 

(setvar "BLIPMODE" 0) 

r 

; *Set layer to POINTS. 

(command "LAYER" "M" "POINTS" "") 

f 

; *Get central meridian of map. 

(setq central (getvar "USERR1")) 

r 

; *Set earth radius . 

(setq earth 6371.0 ) 

t 

; *Be sure entity handles are on. 

(command "HANDLES" "ON") 

; *Get the name of the circuits file. 

; *Open the file for input . 

(setq datafl (getstring "\nEnter name of circuits file 
(setq fl (open datafl "r") ) 

(if (not fl) 

(*ERROR* (strcat "cannot open file: " datafl)) 

) 

(if fl 
(progn 

r 

; *Read the first line from the circuits file, 
(setq slnl (read-line fl)) 


;*Process each line of the circuits file. 



(while slnl 
(progn 
/ 

; *Get a list of attribute values by calling 
; *the function sparse with the input line as 
;*its argument. 

; *Count the number of attribute values--there 
;*should be 11. 

(setq slstl (sparse slnl)) 

(setq slenl (length slstl) ) 

(if (= slenl 11) 

(progn 

f 

;*Set variables to the attribute values 
; *f rom the list . 

(setq cktid (car slstl) ) 

(setq slstl (cdr slstl)) 

(setq tckt (car slstl)) 

(setq slstl (cdr slstl)) 

(setq kbps (car slstl) ) 

(setq slstl (cdr slstl) ) 

(setq sgnl (car slstl) ) 

(setq slstl (cdr slstl) ) 

(setq txmed (car slstl) ) 

(setq slstl (cdr slstl) ) 

(setq facl (car slstl) ) 

(setq slstl (cdr slstl)) 

(setq elatl (car slstl) ) 

(setq slstl (cdr slstl) ) 

(setq elongl (car slstl) ) 

(setq slstl (cdr slstl) ) 

(setq fac2 (car slstl)) 

(setq slstl (cdr slstl) ) 

(setq elat2 (car slstl) ) 

(setq slstl (cdr slstl)) 

(setq elong2 (car slstl) ) 

(setq slstl (cdr slstl) ) 

r 

;*Insert circuit entities by calling 
; *the function insckt with the 
; *attribute values as arguments. 

( InsCkt 

central earth 

elatl elongl facl elat2 elong2 fac2 
cktid tckt kbps sgnl txmed 


) 



) 

(progn 

(*ERROR* "bad input data") 

(princ (strcat "\nlnput item count: " 
(itoa slenl) ) ) 

) 

) 


; *Read the next line from the 
;*circuits file. 

(setq slnl (read-line fl) ) 

) 

) 

r 

;*Close the circuits file. 

(close fl) 

) 

) 

f 

; *Restore echo and blip. 

(moder) 


'kic'k'k'k'k'kicir’k 

* Command : 

* Author : 

* Purpose : 

* 

* 

* Inputs : 

* Outputs: 


lladdckt (add circuit at latitude, longitude) 
Tom Brownfield 1990 

Get attributes from the command line and plot 
a circuit with endpoints on the map using 
the latitudes and longitudes entered, 
command line 
command line 


(defun C: lladdckt 

( 

/ central earth 

clatl clongl clat2 clong2 cktid tckt kbps sgnl txmed 
elatl elongl ecktl facl 
elat2 elong2 eckt2 fac2) 


;*Save and turn off echo and blip, 
(modes ' ("CMDECHO" "BLIPMODE")) 
(setvar "CMDECHO" 0) 

(setvar "BL IPMODE " 0) 


; *Set layer to POINTS. 

(command "LAYER" "M" "POINTS" "") 



; *Get central meridian of map. 

(setq central (getvar "USERR1") ) 

9 

; *Set earth radius . 

(setq earth 6371.0 ) 

9 

; *Be sure entity handles are on. 

(command "HANDLES" "ON") 

9 

; *Get attribute values from the command line. 

(setq elatl (rtos 

(getreal "\nEnter first Latitude in decimal degrees: "))) 
(setq elongl (rtos 

(getreal "\nEnter first Longitude in decimal degrees : "))) 
(setq facl (getstring "\nEnter FACILITY: ") ) 

(setq elat2 (rtos 

(getreal "\nEnter second Latitude in decimal degrees: ") ) ) 
(setq elong2 (rtos 
(getreal 

"\nEnter second Longitude in decimal degrees : "))) 

(setq fac2 (getstring "\nEnter FACILITY: ") ) 

(setq cktid (getstring "\nEnter NSI_CKT_ID: ")) 

(setq tckt (getstring "\nEnter TYPE_CIRCUIT : ") ) 

(setq kbps (getstring "\nEnter KBPS: ") ) 

(setq sgnl (getstring "\nEnter SIGNAL: ") ) 

(setq txmed (getstring "\nEnter TX_MEDIUM: ") ) 

9 

;*Insert circuit entities by calling the function 
;*insckt with the attribute values as arguments. 

( InsCkt 

central earth 

elatl elongl facl elat2 elong2 fac2 
cktid tckt kbps sgnl txmed 

) 

r 

; *Restore echo and blip. 

(moder) 


• ********** 

/ 

;* Function 
;* Author: 

; * Purpose : 

. * 

9 



delckt (delete circuit) 

Tom Brownfield 1990 

Delete a circuit with its endpoints from 
the map . 

entity name of circuit insert 


Inputs : 



;* Outputs: 


none 


(defun delckt ( ename / ent etype etag lineeh epleh ep2eh dname ) 

9 

; *Save the given circuit entity name. 

(setq dname ename) 

r 

; *Get the first entity association list and entity type 
;*for the given entity name. 

(setq ent (entget ename) ) 

(setq etype (cdr (assoc 0 ent) ) ) 

9 

;*Process each entity association list in the INSERT 
; *sequence . 

(while (not (equal etype "SEQEND") ) 

(progn 

9 

;*For attribute entity lists: 

;* Get the attribute tags; 

; * Set variables to attribute values 
; * for the line and the two endpoint 
;* entity handles. 

(if (equal etype "ATTRIB") 

(progn 

(setq etag (cdr (assoc 2 ent) ) ) 

(if (equal etag "LINE_EH" ) 

(progn 

(setq lineeh (cdr (assoc 1 ent))) 

) 

) 

(if (equal etag "EP1_EH") 

(progn 

(setq epleh (cdr (assoc 1 ent))) 

) 

) 

(if (equal etag "EP2_EH") 

(progn 

(setq ep2eh (cdr (assoc 1 ent) ) ) 

) 

) 

) 

) 

9 

;*Get the next entity name, association list, 

; *and entity type. 

(setq ename (entnext ename) ) 



(setq ent (entget ename) ) 

(setq etype (cdr (assoc 0 ent))) 

) 

) 

/ 

; *Delete the circuit entity. 

(entdel dname) 

f 

; *Get the entity names for the entity handles of 
;*the line and the two endpoints. 

;*Delete the line and two endpoints. 

(setq ename (handent lineeh) ) 

(entdel ename) 

(setq ename (handent epleh) ) 

(entdel ename) 

(setq ename (handent ep2eh) ) 

(entdel ename) 




* Command : 

* Author : 

* Purpose : 

* 

* Inputs : 

* Outputs: 


delckts (delete all circuits) 

Tom Brownfield 1990 

Find all circuits plotted on the map 
and delete them, 
command line 
command line 


(defun C:delckts( / ss sscnt ssidx ename) 


; *Save and turn off echo. 

(modes ' ( "CMDECHO" ) ) 

(setvar "CMDECHO" 0) 

;*Build a selection set of all entity names of 
; insertions of the block LLCKT on the layer POINTS, 
(setq ss (ssget "X" (list (cons 0 "INSERT") 

(cons 2 "llckt") 

(cons 8 "POINTS")))) 

e 

; *Count the number of entities selected. 

(if (null ss) 

(setq sscnt 0) 

(setq sscnt (sslength ss)) 

) 

(princ (itoa sscnt) ) 

(princ " circuits will be deleted.") 



(terpri) 

f 

; *Set index for the first entity name in the set. 

(setq ssidx 0) 

f 

;*Process each entity name in the set. 

(while (> sscnt 0) 

(progn 

(setq ename (ssname ss ssidx)) 

f 

;*Delete the circuit by calling the function 
;*delckt with the entity name as its argument, 
(delckt ename) 

t 

;*Set index for the next entity name in the set. 
(setq ssidx (1+ ssidx)) 

(setq sscnt (1- sscnt)) 

) 

) 

f 

; *Redraw the screen to clean up the map. 

(redraw) 


; ^Restore echo . 
(moder ) 

(princ) 


'k'k'k'k'k'k'k'k'k'k 

* Function: 

* Author : 

* Purpose : 

* Inputs: 

* Outputs: 


extept (extract endpoint) 

Tom Brownfield 1990 

Extract attribute values from an endpoint . 
entity name of endpoint insertion 
list of attribute values from endpoint 


(defun extept 
( ename 
/ ent etype 

efac elat elong 

) 


; *Get the first entity association list and entity type 
;*for the given entity name. 

(setq ent (entget ename) ) 

(setq etype (cdr (assoc 0 ent) ) ) 



;*Process each entity association list in the INSERT 
; * sequence . 

(while (not (equal etype "SEQEND" ) ) 

(progn 

r 

/ *For attribute entity lists: 

;* Get the attribute tags; 

;* Set variables to attribute values. 

(if (equal etype "ATTRIB" ) 

(progn 

(setq etag (cdr (assoc 2 ent) ) ) 

(if (equal etag "FACILITY") 

(setq efac (cdr (assoc 1 ent))) 

) 

(if (equal etag "LATITUDE") 

(setq elat (cdr (assoc 1 ent) ) ) 

) 

(if (equal etag "LONGITUDE") 

(setq elong (cdr (assoc 1 ent))) 

) 

) 

) 

f 

; *Get the next entity name, association list, 

; *and entity type. 

(setq ename (entnext ename) ) 

(setq ent (entget ename) ) 

(setq etype (cdr (assoc 0 ent) ) ) 

) 

) 

/ 

; *Return return a list of the attribute values for 
; *the endpoint. 

(list efac elat elong) 

) 

/ 

;* Function: extckt (extract circuit) 

;* Author: TomBrownf ield 1990 

;* Purpose: Extract attribute values from a circuit. 

;* Inputs: entity name of circuit insertion. 

;* Outputs: list of attribute values from circuit 

;* and endpoints 


(defun extckt 
( ename 



/ ent etype etag 

cktid tckt kbps sgnl txmed lineeh epleh ep2eh 
facl elatl elongl fac2 elat2 elong2 
elistl elist2 

) 

r 

; *Get the first entity association list and entity type 
;*for the given entity name. 

(setq ent (entget ename) ) 

(setq etype (cdr (assoc 0 ent))) 

f 

;*Process each entity association list in the INSERT 
; *sequence . 

(while (not (equal etype "SEQEND" ) ) 

(progn 

/ 

;*For attribute entity lists: 

;* Get the attribute tags; 

;* Set variables to the attribute values. 

(if (equal etype "ATTRIB" ) 

(progn 

(setq etag (cdr (assoc 2 ent) ) ) 

(if (equal etag "NSI_CKT_ID") 

(setq cktid (cdr (assoc 1 ent))) 

) 

(if (equal etag "TYPE_CIRCUIT") 

(setq tckt (cdr (assoc 1 ent))) 

) 

(if (equal etag "KBPS") 

(setq kbps (cdr (assoc 1 ent) ) ) 

) 

(if (equal etag "SIGNAL") 

(setq sgnl (cdr (assoc 1 ent) ) ) 

) 

(if (equal etag "TX_MEDIUM" ) 

(setq txmed (cdr (assoc 1 ent) ) ) 

) 

(if (equal etag "LINE_EH" ) 

(setq lineeh (cdr (assoc 1 ent) ) ) 

) 

(if (equal etag "EP1_EH") 

(setq epleh (cdr (assoc 1 ent))) 

) 

(if (equal etag "EP2_EH") 

(setq ep2eh (cdr (assoc 1 ent) ) ) 


) 



) 


; *Get the next entity name, association list, 
; *and entity type. 

(setq ename (entnext ename) ) 

(setq ent (entget ename) ) 

(setq etype (cdr (assoc 0 ent) ) ) 


) 


; *Get the entity names for the entity handles of 
; *the two endpoints. 

; *Get a list of attribute values for each endpoint 
; *by calling the function extept with each entity 
; *name as its argument. 

(setq ename (handent epleh) ) 

(setq elistl (extept ename) ) 

(setq ename (handent ep2eh) ) 

(setq elist2 (extept ename) ) 

; *Set variables to the attribute values from the 
; *two endpoint lists. 

(setq facl (car elistl) ) 

(setq elatl (cadr elistl)) 

(setq elongl (caddr elistl) ) 

(setq fac2 (car elist2)) 

(setq elat2 (cadr elist2)) 

(setq elong2 (caddr elist2) ) 


; *Return a list of the attribute values for the 
;*circuit and its two endpoints. 

(list cktid tckt kbps sgnl txmed 
facl elatl elongl 
fac2 elat2 elong2) 


********* 


Command : 
Author : 
Purpose : 


Inputs : 
Outputs : 


extckts (extract all circuits) 

Tom Brownfield 1990 

Find all circuits plotted on the map 
and extract all their attributes. 
Write a line of attributes to the 
circuits file for each circuit, 
command line 
command line 



circuits disk file 


(defun C:extckts( / ss sscnt ssidx ename clist clcnt cln ) 

f 

; *Save and turn off echo. 

(modes ' ( "CMDECHO" ) ) 

(setvar "CMDECHO" 0) 

f 

; *Get the circuits file name from the command line. 

; *Open the file for output. 

(setq datafl (getstring "\nEnter name of circuits file: ")) 
(setq fl (open datafl "w") ) 

(if (not fl) 

( *ERROR* (strcat "cannot open file: " datafl)) 

) 

(if fl 
(progn 
/ 

;*Build a selection set of all entity names of 
; insertions of the block LLCKT on the layer POINTS, 
(setq ss (ssget "X" (list (cons 0 "INSERT") 

(cons 2 "llckt") 

(cons 8 "POINTS")))) 

r 

; *Count the number of entities selected. 

(if (null ss) 

(setq sscnt 0) 

(setq sscnt (sslength ss) ) 

) 

(princ (itoa sscnt)) 

(princ " circuits will be extracted.") 

(terpri) 

f 

;*Set index for the first entity name in the set. 
(setq ssidx 0) 

r 

;*Process each entity name in the set. 

(while (> sscnt 0) 

(progn 

(setq ename (ssname ss ssidx) ) 

r 

; *Get a list of attribute values by calling 
; *the function extckt with the entity name 
; *as its argument . 

(setq clist (extckt ename) ) 

(setq cln "") 



; *Count the number of attribute values in 
; *the list . 

(if (null clist) 

(setq clcnt 0) 

(setq clcnt (length clist) ) 

) 

r 

;*Process each attribute value in the list, 
(while (> clcnt 0) 

(progn 


) 


; *Put each value to the output line 
; *with a space delimiter. 

(setq cln (strcat cln (car clist) " ") ) 
(setq clist (cdr clist)) 

(setq clcnt (1- clcnt)) 

) 

) 


; *Write the output line to the circuits file, 
(write-line cln fl) 


; *Set index 
; *the set . 
(setq ssidx 
(setq sscnt 


for the next entity name in 

(1+ ssidx) ) 

( 1- sscnt ) ) 


;*Close the circuits file, 
(close fl) 

) 

) 

r 

;*Restore echo. 

(moder ) 

(princ) 


********* 
Command : 
Author : 
Purpose : 


seldbckts (select database circuits) 

Tom Brownfield 1990 

Run a program to select attribute values 
from an external database and write them 
to a circuits file. 



* Inputs: command line 

* Outputs : command line 

* circuits disk file 

(defun C:seldbckts 

( 

/ errcnt cname rname pname cf rf cmdline rline rlist succeed ) 
/ 

; *Save and turn off echo. 

(modes ’ ( "CMDECHO" ) ) 

(setvar "CMDECHO" 0) 

} 

; *Init ialize error count. 

(setq errcnt 0) 

(if (= errcnt 0) 

(progn 

/ 

;*Initialize empty results file. 

(setq rname "selres.txt") 

(setq rf (open rname "w") ) 

(if (not rf) 

(progn 

(*ERROR* (strcat "cannot open file: " rname)) 

(setq errcnt (1+ errcnt) ) 

) 

(close rf) 

) 

) 

) 

(if (= errcnt 0) 

(progn 

t 

; *Get the circuits file name from the command line. 

; initialize empty circuits file. 

(setq cname 

(getstring "\nEnter name of circuits file: ")) 

(setq cf (open cname "w") ) 

(if (not cf) 

(progn 

( *ERROR* (strcat "cannot open file: " cname)) 

(setq errcnt (1+ errcnt) ) 

) 

(close cf) 

) 

) 


) 



(if (= errcnt 0) 

(progn 

/ 

;*Get a db server password from the command line. 

(setq pname (getstring "\nEnter db server password: ") ) 
(if (= (strlen pname) 0) 

(progn 

(*ERR0R* "null password") 

(setq errcnt (1+ errcnt)) 

) 

) 

) 

) 

(if (= errcnt 0) 

(progn 

} 

;*Assemble a shell command to run the db selection 
;*program with arguments for password, circuits file 
;*name, and results file name. 

;*Execute the shell command. 

; *Read the results file to check for SUCCEED message, 
(setq cmdline (strcat "gtdbckt -P" pname " -C" cname 

" -R" rname) ) 

(command "SHELL" cmdline) 

(setq rf (open rname "r") ) 

(if (not rf) 

(progn 

(*ERROR* (strcat "cannot open file: " rname)) 
(setq errcnt (1+ errcnt)) 

) 

(progn 

(setq rline (read-line rf) ) 

(close rf) 

(setq rlist (sparse rline)) 

(setq succeed (car rlist) ) 

(if (/= "SUCCEED" succeed) 

(progn 

(*ERROR* "db selection unsuccessful") 

(setq errcnt (1+ errcnt)) 

) 

(progn 

(princ "\nCircuits selected from database") 
(princ "\n to ") 

(princ cname) 

(princ "\n") 


) 



) 


) 


) 


;*Restore echo, 
(moder ) 

(princ) 


• ********** 

; * Command : 
;* Author: 

; * Purpose : 
• * 

■ * 

; * Inputs : 

. * 

;* Outputs: 


insdbckts (insert database circuits) 
Tom Brownfield 1990 

Run a program to read attribute values 

from a circuits file and insert them 

into an external database. 

command line 

circuits disk file 

command line 


(defun C: insdbckts 

( 

/ errcnt cname rname pname cf rf cmdline rline rlist succeed ) 

r 

; *Save and turn off echo. 

(modes 1 ( "CMDECHO" ) ) 

(setvar "CMDECHO" 0) 


;*Initialize error count. 

(setq errcnt 0) 

(if (= errcnt 0) 

(progn 

r 

; initialize empty results file. 

(setq rname "insres.txt") 

(setq rf (open rname "w")) 

(if (not rf) 

(progn 

( *ERROR* (strcat "cannot open file: " rname)) 
(setq errcnt (1+ errcnt)) 

) 

(close rf) 

) 

) 

) 



(if (= errcnt 0) 

(progn 

/ 

; *Get the circuits file name from the command line. 

; *Open the file to check its presence. 

(setq cname 

(getstring "\nEnter name of circuits file: ") ) 

(setq cf (open cname "r")) 

(if (not cf) 

(progn 

( *ERR0R* (strcat "cannot open file: " cname)) 
(setq errcnt (1+ errcnt) ) 

) 

(close cf) 

) 

) 

) 

(if (= errcnt 0) 

(progn 

f 

; *Get a db server password from the command line. 

(setq pname (getstring "\nEnter db server password: ") 
(if (= (strlen pname) 0) 

(progn 

(*ERROR* "null password") 

(setq errcnt (1+ errcnt) ) 

) 

) 

) 

) 

(if (= errcnt 0) 

(progn 

r 

;*Assemble a shell command to run the db insertion 
;*program with arguments for password, circuits file 
;*name, and results file name. 

;*Execute the shell command. 

;*Read the results file to check for SUCCEED message, 
(setq cmdline (strcat "ptdbckt -P" pname ” -C" cname 

" -R" rname) ) 

(command "SHELL" cmdline) 

(setq rf (open rname "r") ) 

(if (not rf) 

(progn 

( *ERROR* (strcat "cannot open file: 

(setq errcnt (1+ errcnt)) 


IT 


rname) ) 



(progn 

(setq rline (read-line rf ) ) 

(close rf) 

(setq rlist (sparse rline)) 

(setq succeed (car rlist) ) 

(if (/= "SUCCEED" succeed) 

(progn 

( *ERROR* "db insertion unsuccessful") 

(setq errcnt (1+ errcnt) ) 

) 

(progn 

(princ "\nCircuits inserted into database") 
(princ "\n from ") 

(princ cname) 

(princ "\n") 

) 

) 

) 

) 

) 

) 


;*Restore echo, 
(moder) 

(princ) 



C PROGRAMS 


/* 
* * 

Program : 

gtdbckt (get circuits from database) 

* * 

Author : 

Tom Brownfield 1990 

★ * 

Compiler : 

Sun UNIX C with Sybase DB-Library 

* * 

Purpose : 

Select rows from circuit database table. 

* * 


lookup latitude and longitude for each 

* * 


endpoint, and write values to circuits 

* * 


disk file. 

* * 

Inputs : 

Optional program arguments: 

: k k 


-C<circuits file name> 

* * 


-R<results_f ile name> 

★ : k 


-P<password> 

k * 


circuit, facility, torg, wire center 

k * 


in spatial database 

★ * 

Outputs : 

standard output messages 

* * 


circuits disk file 

★ * 


results disk file 

*/ 




♦include <stdio.h> 
♦include <sybfront.h> 
♦include <sybdb.h> 
♦include <strings.h> 


♦define 

BUFLEN 

200 

♦define 

PWDLEN 

64 

♦define 

NCILEN 

20 

♦define 

TCLEN 

10 

♦define 

KBPLEN 

04 

♦define 

SIGLEN 

11 

♦define 

TXMLEN 

20 

♦define 

EPLEN 

10 

♦define 

FLTLEN 

20 


/* 

** Forward declarations of the error handler, message handle 
** and lookup function for latitudes and longitudes. 

*/ 

int err_handler ( ) ; 
int msg_handler ( ) ; 
int lookup_ll () ; 

main(argc, argv) 
int argc; 



char 

{ 


*argv [ ] ; 


DBPROCESS 

*dbprocl ; 

/* 

Primary connection with SQL 

*/ 



/* 

server . 

*/ 

DBPROCESS 

*dbproc2 ; 

/* 

Secondary connection with 

V 



/* 

SQL server to be used by 

*/ 



/* 

lookup__ll ( ) . 

*/ 

LOGINREC 

*login; 

/* 

Our login information. */ 


RETCODE 

return_codel; 




RETCODE 

return_code2 ; 




DBINT 

lookup okl; 




DBINT 

lookup_ok2 ; 




char 

outbuf [BUFLEN] ; 




FILE 

*circuitsf ile; 




FILE 

*resultsf ile; 




char 

dbpwd [PWDLEN+1 ] 




char 

cfname [BUFLEN] ; 




char 

rfname [BUFLEN] ; 




int 

if jf k; 




unsigned 





int 

count ; 




int 

argerr ; 





/* 

** These are the variables used to store the returning data. 
** <length>+l allows for a null character. 

** <length>+l allows for a space and a null character. 

*/ 

DBCHAR nsi_ckt_id [NCILEN+2 ] ; 

DBCHAR type_circuit [TCLEN+2 ] ; 

DBCHAR kbps [KBPLEN+2 ] ; 

DBCHAR signal [SIGLEN+2] ; 

DBCHAR tx_medium [TXMLEN+2 ] ; 

DBCHAR end_point 1 [EPLEN+2 ] ; 

DBCHAR end_point2 [EPLEN+2] ; 

DBCHAR eptsl [EPLEN+2] ; 

DBCHAR epts2 [EPLEN+2 ] ; 

DBCHAR lats [FLTLEN+1 ] ; 

DBCHAR longs [FLTLEN+1 ] ; 

/* Initialize password and file names to defaults. */ 
strcpy (dbpwd, "server_pas sword") ; 
strcpy (cfname, "circuits") ; 
strcpy (rfname, "results") ; 



/* 

** Scan program arguments for valid options: 
** -C<circuits_f ile_name> 

** -R<results_f ile_name> 

** -P<password> 

*/ 

argerr =0; 

for (i = 1; i < argc; i++) { 

printf ( "argument : %s\n", argv[i]); 
if (argv [i] [0] == { 

switch (argv[i][l]) { 
case ’ C ’ : 

j = 2; 

k = 0; 

while (argv [i] [ j] ) { 

cfname[k] = argv[i][j]; 

++j; 

++k; 

} 

cfname[k] = ’ \ 0 * ; 
break; 
case ' R ' : 

j = 2; 

k = 0 ; 

while (argv[i' 
rfname [k] 

++j; 

++k ; 

} 

rfname [k] = ' \ 0 1 ; 
break; 
case ' P ' : 
j = 2; 
k = 0; 

while (argv[i] [j]) { 

dbpwd[k] = argv[i][j]; 

++j; 


I [j]) { 

= argv [i] [ j] ; 


++k ; 


} 


dbpwd [k] 
break; 
default : 

argerr = 


= • \0 


1 ; 


printf ("illegal option %c\n", argv [i] [1] 
break; 



} 


} 

else { 

argerr = 1; 

printf ( "option must begin with ' -'\n"); 

} 

} 

/* Check for program argument errors. */ 
if (argerr) { 

printf ("%s had argument errors — discontinued. \n", 
argv [0] ) ; 
exit ( STDEXIT) ; 

} 

/* Open results file. */ 

if ( (resultsfile = f open (rfname, "w" ) ) == NULL) { 
print f ( "Unable to open file %s\n", rfname) ; 
exit (STDEXIT) ; 

} 

/* Open circuits file. */ 

if ( (circuitsf ile = fopen (cfname, "w") ) == NULL) { 
printf ( "Unable to open file %s\n", cfname) ; 
exit (STDEXIT) ; 

} 

/* Initialize DB-1IBRARY . */ 
if (dbinit () == FAIL) 
exit (ERREXIT) ; 


/* 

** Install the user-supplied error-handling and 
** message-handling routines. They are defined at 
** the bottom of this source file. 

*/ 

dberrhandle (err_handler) ; 
dbmsghandle (msg_handler ) ; 

/* 

** Get a LOGINREC structure and fill it with the necessary 
** login information. 

*/ 

login = dblogin(); 

DBSETLPWD (login, dbpwd) ; 

DBSETLAPP (login, "getdbces") ; 



/* 

** Get two DBPROCESS structures for communicating with SQL 
** Server. A NULL servername defaults to the server 
** specified by DSQUERY. 

*/ 

dbprocl = dbopen (login, NULL); 
dbproc2 = dbopen ( login, NULL) ; 

/* Use the spatial db . */ 
dbuse (dbprocl , "spatial"); 
dbuse (dbproc2 , "spatial"); 

printf ("Selecting rows from the 'circuit' table:\n"); 

/* Assemble SQL select transaction in command buffer. */ 
dbcmd (dbprocl , "select * from circuit"); 

/* Send transaction to SQL server. */ 
dbsqlexec (dbprocl) ; 

/* Get results from transaction. */ 
while ( (return_codel = dbresults (dbprocl) ) != 

NO_MORE_RESULTS) { 
if (return codel == SUCCEED) { 


/* Bind columns 

to 

program variables . */ 

dbbind (dbprocl. 

1, 

CHARBIND, 

0, 

nsi_ckt_id) ; 

dbbind (dbprocl, 

2, 

CHARBIND, 

0, 

type_circuit ) ; 

dbbind (dbprocl. 

3, 

CHARB IND , 

0, 

kbps) ; 

dbbind (dbprocl, 

4, 

CHARBIND, 

0, 

signal) ; 

dbbind (dbprocl, 

5, 

CHARBIND, 

0, 

tx medium) ; 

dbbind (dbprocl, 

6, 

CHARBIND, 

0, 

end_pointl) ; 

dbbind (dbprocl, 

7, 

CHARBIND, 

0, 

end point 2) ; 


/* 

** Initialize space in arrays 

** to serve as delimiter in circuits file. 

*/ 

nsi_ckt_id [NCILEN] = ' '; 

type_circuit [TCLEN] = ' '; 

kbps [KBPLEN] = ' '; 

signal [SIGLEN] = ' '; 

tx_medium [TXMLEN] = ' '; 

end_pointl [EPLEN] = ' '; 

end_point2 [EPLEN] = ' '; 



/* 

** Initialize null terminator in arrays 
** since CHARBIND does not add one. 

*/ 

nsi_ckt_id [NCILEN+1 ] = ’ \0 ’ ; 
type_circuit [TCLEN+1 ] = '\0'; 
kbps [KBPLEN+1] = ' \ 0 ' ; 
signal [SIGLEN+l] = ' \0'; 
tx_medium [TXMLEN+1 ] = ’ \0'; 
end_point 1 [EPLEN+1 ] = ’\0’; 
end_point2 [EPLEN+1] = ’ \ 0 * ; 

/* Get each selected row. */ 

while (dbnextrow (dbprocl ) != NO_MORE_ROWS ) { 

printf 

("%s%s%s%s%s\n", 

nsi_ckt_id, type_circuit , kbps, signal, 
tx_medium) ; 

/* Copy variables to outbuf. */ 
strcpy (outbuf , nsi_ckt_id) ; 
strcat (outbuf , type_circuit ) ; 
strcat (outbuf, kbps) ; 
strcat (outbuf, signal) ; 
strcat (outbuf , tx_medium) ; 
strcat (outbuf, end_pointl) ; 

/* 

** Copy end_pointl to eptsl, and remove trailing 
** spaces by replacing the first space with a 
** null character. 

*/ 

strcpy (eptsl, end_pointl) ; 
eptsl [strcspn (eptsl, " ") ] = ' \0 1 ; 

/* 

** Call lookup_ll() to get latitude, longitude 
** of eptsl using the secondary DBPROCESS . 

** Check results of lookup. 

*/ 

if ( (lookup_okl = 

lookup_ll (dbproc2, eptsl, lats, longs)) == 0) 
printf ("BAD LOOKUP %s\n", end_j3ointl) ; 
else { 

printf ("%s%s %s \n" , end_pointl, lats, 



longs) ; 


/* 

** if lookup was ok, 

** copy variables to outbuf. 

*/ 

strcat (outbuf , lats); 
strcat (outbuf , " ") ; 

strcat (outbuf, longs) ; 
strcat (outbuf , " ") ; 

} 

/* Copy variables to outbuf. */ 
strcat (outbuf, end_point2) ; 

/* 

** Copy end_point2 to epts2, and remove trailing 
** spaces by replacing the first space with a 
** null character. 

*/ 

st rcpy (epts2 , end_point2) ; 
epts2 [strcspn (epts2, " ") ] = ' \0'; 

/* 

** Call lookup_ll() to get latitude, longitude 
** of epts2 using the secondary DBPROCESS . 

** Check results of lookup. 

*/ 

if ( (lookup_ok2 = 

lookup_ll (dbproc2, epts2, lats, longs)) == 0) 
print f ( "BAD LOOKUP %s\n", end_point2); 
else { 

/* 

** if lookup was ok, 

** copy variables to outbuf. 

*/ 

printf("%s%s %s \n", end_j?oint2, lats, 
longs) ; 

strcat (outbuf , lats); 
strcat (outbuf , " ") ; 
strcat (outbuf , longs); 
strcat (outbuf , " " ) ; 

} 

/* Copy newline character to outbuf. */ 



strcat (outbuf , "\n") ; 


/* 

** If both lookups were ok, write record 
** to circuits file. 

*/ 

if (lookup_okl == 1 && lookup_ok2 - 1) 
fputs (outbuf , circuit sfile) ; 

} 

} 

} 

/* Close DBPROCESS structure. */ 
dbexit ( ) ; 

/* Close circuits file. */ 
fclose (circuitsf ile) ; 

/* Write "SUCCEED" message to results file and close. */ 
fputs ("SUCCEED\n", resultsfile) ; 
fclose (resultsfile) ; 

/* Normal program exit. */ 
exit (STDEXIT) ; 

} 

/* 

** Function: 

** Author: 

* * Purpose : 

★ ★ 

** Inputs: 

* * 

* * 

★ * 

* * 

* * 

** Outputs: 

★ * 

★ * 

*/ 

int lookup_ll (dbproc, epts, rlats, rlongs) 

DBPROCESS *dbproc; 

DBCHAR *epts; 

DBCHAR * rlats; 


lookup_ll (lookup latitude, longitude) 

Tom Brownfield 1990 

Select the latitude and longitude of the 
wire center serving an endpoint facility. 
Arguments : 

dbproc — pointer to DBPROCESS structure 
epts — pointer to string containing endpoint 
facility 

rlats — pointer to return string for latitude 
rlongs — pointer to return string for longitude 
latitude string value 
longitude string value 
function return error status 



DBCHAR 

{ 

RETCODE 

DBCHAR 

DBCHAR 

DBINT 


*rlongs ; 

return_code ; 
lats [FLTLEN+1 ] ; 
longs [FLTLEN+1] ; 
dbcount ; 


/* 


** Assemble SQL select transaction in command buffer 
** using epts for condition value. 

V 


dbcmd (dbproc, 
dbcmd (dbproc, 
dbcmd (dbproc, 
dbcmd (dbproc, 
dbfcmd (dbproc, 
dbcmd (dbproc, 
dbcmd (dbproc, 
dbcmd (dbproc, 
dbcmd (dbproc, 
dbcmd (dbproc, 


select lats = st r (w . latitude, 10, 4 ) , " ) ; 

longs = str (w. longitude, 10, 4) ") ; 

from facility f,torg o, ") ; 

wire_center w ") ; 

where f. facility = ' %s' ", epts); 

and o.org_key = f.org_key ") ; 

and w . npa = " ) ; 

substring (o . commercial_phone, 2,3) " ) ; 
and w.nxx = ") ; 

substring (o . commercial_phone, 6,3) ") ; 


/* Send transaction to SQL server. */ 
dbsqlexec (dbproc) ; 


/* Get results from transaction. */ 
while ( (return_code = dbresults (dbproc) ) != 

NO_MORE_RESULTS ) { 

if (return_code == SUCCEED) { 

/* Bind columns to function variables. */ 
dbbind (dbproc, 1, STRINGBIND, 0, lats) ; 
dbbind (dbproc, 2, STRINGBIND, 0, longs); 


/* Get each selected row. */ 

while (dbnext row (dbproc) != NO_MORE_ROWS ) { 

/* Ignore any rows after the first. */ 
if (DBCURROW (dbproc) > 1) 
continue; 


/* copy function variables to outputs. */ 
strcpy (rlats, lats); 
strcpy (rlongs , longs); 

} 

} 



} 


/* 

** If one row was selected return 1 for success; 

** else return 0 for failure. 

*/ 

if ( (dbcount = DBCOUNT (dbproc) ) == 1) 
return ( 1 ) ; 

else 

return (0) ; 

} 

/* 

** Function: err_handler 

** Author: (from Sybase DBLibrary Examples) 

*/ 

int err_handler (dbproc, severity, dberr, oserr, dberrstr, 
oserrstr) 

DBPROCESS * dbproc; 
int severity; 

int dberr; 

int oserr; 

char *dberrstr; 

char *oserrstr; 

{ 

if ((dbproc == NULL) || (DBDEAD (dbproc) ) ) 
return (INT_EXIT) ; 
else { 

printf ( "DB-Library error : \n\t%s\n" , dberrstr); 
if (oserr != DBNOERR) 

print f ( "Operating-system error : \n\t%s\n”, oserrstr); 
return (INT_CANCEL) ; 

} 

} 

/* 

** Function: msg_handler 

** Author: (from Sybase DBLibrary Examples) 

*/ 

int msg_handler (dbproc, msgno, msgstate, severity, msgtext, 
srvname, procname, line) 



DBPROCESS 

DBINT 

int 

int 

char 

char 

char 


*dbproc; 
msgno; 
msgstate; 
severity; 
*msgtext ; 

* srvname; 
*procname; 


DBUSMALLINT line; 


{ 

printf ("Msg %ld, Level %d, State %d\n" / 
msgno, severity, msgstate) ; 

if (strlen (srvname) > 0) 

printf ("Server '%s', ", srvname) ; 
if (strlen (procname) > 0) 

printf ("Procedure ’%s', ", procname); 
if (line > 0) 

printf ("Line %d", line); 

printf ( "\n\t%s\n", msgtext) ; 

return (0 ) ; 

} 


/* 

** Program: 
** Author: 

** Compiler: 

** Purpose: 

* * 

* * 

** Inputs : 

* * 


* * 
* * 
* * 


** Outputs: 
* * 

* * 

*/ 


ptdbckt (put circuits into database) 

Tom Brownfield 1990 

Sun UNIX C with Sybase DB-Library 

Read circuits disk file, and use the values 

to insert new rows into circuit database 

table . 

Optional program arguments: 

-C<circuits_f ile_name> 

-R<re su It s_f i le_name> 

-P<password> 
circuits disk file 
standard output messages 
circuit in spatial database 
results disk file 


♦include <stdio.h> 
♦include <sybfront.h> 
♦include <sybdb.h> 
♦include <strings.h> 



tdefine BUFLEN 
tdefine PWDLEN 


200 

64 


/* 

** Forward declarations of the 
** handler. 

*/ 

int err_handler ( ) ; 
int msg_handler ( ) ; 

main(argc, argv) 
int argc; 

char *argv[]; 

{ 


DBPROCESS 

*dbprocl ; 

LOGINREC 

* login ; 

RETCODE 

return codel; 

char 

valbuf [BUFLEN] 

char 

inbuf [BUFLEN] ; 

char 

*ibp; 

int 

tokcnt ; 

FILE 

*circuitsfile; 

FILE 

*resultsf ile; 

char 

dbpwd [PWDLEN+1 

char 

cfname [BUFLEN] 

char 

rfname [BUFLEN] 

int 

i, 3, k; 

unsigned 

int 

count / 

int 

argerr; 


error handler and message 


/* Our connection with SQL */ 
/* server. */ 
/* Our login information. */ 


] ; 


/* Initialize password and file names to defaults. */ 
strcpy (dbpwd, "server_password") ; 
strcpy (cfname, "circuits") ; 
strcpy (rfname, "results") ; 

/* 

** Scan program arguments for valid options: 

** -C<circuits_f ile_name> 

** -R<results_f ile_name> 

** -P<password> 

*/ 



argerr = 0; 

for (i = 1; i < argc; i++) { 

printf ( "argument : %s\n", argv[i]); 
if ( argv [ i ] [0] == { 

switch (argv[i][l]) { 


case 


{ 


j = 2; 

k = 0; 

while (argv[i] [j]) 

cfname[k] = argv[i][j]; 

++ j ; 

++k ; 

} 

cfname [k] 
break; 


= '\0 


case ' R 1 : 


j = 2; 

k = 0; 

while (argv [ i ] [ j] ) { 

rfname[k] = argv[i][j]; 

++ j /’ 

++k ; 

} 

rfnamefk] = * \ 0 * ; 
break; 
case ' P ' : 

j = 2; 

k = 0; 

while (argv [i] [ j ] ) { 

dbpwd[k] = argv[i][j]; 

++ j ; 

++k ; 


} 


AO 


dbpwd [ k ] = 
break; 
default : 

argerr = 1; 

printf ( "illegal option %c\n", argv [i] [ 1 ] ) ; 


break; 


} 


} 

else { 

argerr = 1; 

print f ( "option must begin with ' -An"); 


} 


} 



/* Check for program argument errors. */ 
if (argerr) { 

printf("%s had argument errors — discontinued . \n" , 
argv [0] ) ; 
exit (STDEXIT) ; 

} 

/* Open results file. */ 

if ( (resultsfile = f open (rfname, "w")) == NULL) { 
print f ( "Unable to open file %s\n", rfname) ; 
exit (STDEXIT) ; 

} 

/* Open circuits file. */ 

if ( (circuitsf ile = fopen (cfname, "r") ) == NULL) { 
printf ( "Unable to open file %s\n", cfname) ; 
exit (STDEXIT) ; 

} 

/* Initialize DB-1IBRARY . */ 
if (dbinit ( ) == FAIL) 
exit (ERREXIT) ; 


/* 

** Install the user-supplied error-handling and 
** message-handling routines. They are defined at 
** the bottom of this source file. 

*/ 

dberrhandle (err_handler) ; 
dbmsghandle (msg_handler) ; 

/* 

** Get a LOGINREC structure and fill it with the necessary 
** login information. 

*/ 

login = dbloginO; 

DBSETLPWD (login, dbpwd) ; 

DBSETLAPP (login, "putdbckts") ; 

/* 

** Get a DBPROCESS structure for communicating with SQL 
** Server. A NULL servername defaults to the server 
** specified by DSQUERY. 

*/ 



dbprocl = dbopen (login, NULL) ; 


/* Use the spatial db . */ 
dbuse (dbprocl , "spatial"); 

printf (" Insert ing rows into the 'circuit' table :\n"); 

/* Read each record from circuits. */ 

while ( (fgets (inbuf , BUFLEN, circuitsf ile) ) != NULL) { 

/* 

** Scan the first space-delimited token. 

** Copy it to valbuf surrounded by quotes. 

*/ 

tokcnt = 0; 

if (ibp = (char *) strtok (inbuf , " ") ) { 

tokcnt ++; 

strcpy (valbuf, " ' " ) ; 
strcat (valbuf, ibp) ; 
strcat (valbuf, " ' ") ; 

} 

/* 

** Scan the remaining tokens. 

** Copy the second through sixth and the ninth 
** (excluding latitudes and longitudes) to valbuf 
** separated by commas and surrounded by quotes. 
*/ 

while (ibp = (char *) strtok (NULL, " ") ) { 

tokcnt++; 

if ( (tokcnt < 7) | | (tokcnt == 9) ) { 

strcat (valbuf, ",'"); 
strcat (valbuf, ibp) ; 
strcat (valbuf, " ' " ) ; 

} 

} 

printf ( " %s\n" , valbuf) ; 

/* 

** Assemble SQL insert transaction in command 
** buffer using valbuf for values. 

*/ 

dbcmd (dbprocl, "begin tran ") ; 

dbcmd (dbprocl, "insert into circuit ") ; 
dbfcmd (dbprocl, " values (%s) \n" , valbuf ) ; 
dbcmd (dbprocl, "commit tran ") ; 



/* Send transaction to SQL server. */ 
dbsqlexec (dbprocl) ; 

/* Get results from transaction. */ 
while ( (return_codel = dbresults (dbprocl ) ) != 

NO_MORE_RESULTS) { 

/* Check results for failed transaction. */ 
if (return_codel == FAIL) { 

printf("DB insert failed:\n"); 
printf ( "%s\n", valbuf ) ; 

} 

} 

} 

/* Close DBPROCESS structure. */ 
dbexit ( ) ; 

/* Close circuits file. */ 
fclose (circuit sfile) ; 

/* Write "SUCCEED" message to results file and close. */ 
fputs ( "SUCCEED\n" , resultsfile) ; 
fclose (resultsfile) ; 

/* Normal program exit. */ 
exit (STDEXIT) ; 

} 

/* 

** Function: err_handler 

** Author: (from Sybase DBLibrary Examples) 

*/ 

int err_handler (dbproc, severity, dberr, oserr, dberrstr, 
oserrstr) 

DBPROCESS * dbproc; 
int severity; 

int dberr; 

int oserr; 

char *dberrstr; 

char *oserrstr; 

{ 

if ((dbproc == NULL) || (DBDEAD (dbproc) ) ) 
return (INT EXIT); 



else { 

print f ( "DB-Library error : \n\t%s\n" , dberrstr) ; 
if (oserr != DBNOERR) 

printf ( "Operating-system error : \n\t%s\n", oserrstr); 
return (INT_CANCEL) ; 

} 

} 

/* 

** Function: msg_handler 

** Author: (from Sybase DBLibrary Examples) 

*/ 


int msg_handler (dbproc, msgno, msgstate, severity, msgtext, 
srvname, procname, line) 


DBPROCESS 

DBINT 

int 

int 

char 

char 

char 

DBUSMALLINT 


*dbproc; 
msgno; 
msgstate; 
severity; 
*msgtext ; 

* srvname ; 

*procname; 

line; 


{ 

printf ("Msg %ld, Level %d, State %d\n", 
msgno, severity, msgstate) ; 

if (strlen (srvname) > 0) 

printf ("Server '%s', ", srvname); 
if (strlen (procname) > 0) 

printf ("Procedure '%s', ", procname); 
if (line > 0) 

printf ("Line %d", line); 

printf (" \n\t%s\n" , msgtext); 

return (0) ; 

} 
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INTRODUCTION 


While currently available relational database management systems 
(RDBMS) allow inclusion of spatial information in a data model, they 
lack tools for presenting this information in an easily 
comprehensible form. Data models can be constructed to represent 
tangible objects with attributes describing their characteristics. 
The locations of these objects can be described with spatial 
coordinates in units such as degrees of latitude and longitude. 
Though these coordinates can easily be reported textually, their 
utility is minimal in that form. A person reading a report of 
objects and their locating coordinates might, at best, comprehend 
the locations of one or two objects at any one time. The locations 
and spatial relationships of several objects would not be apparent . 
The most useful form for presentation of spatial information is a 
contextual drawing. On a scale drawing the spatial relationships 
among selected objects and geographical features become clear. 
Manually plotting objects on a drawing is time-consuming and 
expensive, making it impractical for ad hoc reports. Computer- aided 
design (CAD) software packages provide adequate functions for 
producing drawings, but still require manual placement of symbols 
and features . This suggests the need for a bridge between the ad 
hoc reporting features of the RDBMS and the automated drawing 
capabilities of the CAD system. 

This project is an exercise in solving a specific example of the 
above problem. Qraphic/image diagrams displaying elements of a 
telecommunications network on a map could prove invaluable as a tool 
for planning and management of complex or wide-ranging networks . The 
success of such a tool is dependent on timely access to information 
about the network and also on the ability to quickly convert that 
information into a visual form. Given are the Sybase RDBMS 
containing a data model of the network and the AutoCAD drafting 
software with suitable maps. The objective of this project is an 
interface which will allow AutoCAD to function as a front-end to the 
Sybase server. This interface includes a customized AutoCAD menu, 
specialized Autolisp commands and functions, and C programs 
incorporating functions from the Sybase DB-Library. Development was 
carried out on a Sun 3 workstation, the target hardware, and an IBM 
PC clone . 

The milestones for progress contained in the project proposal were 
followed throughout the project, and the following sections of this 
report describe the activities leading to their completion. 


PHASE 1: AUTOCAD FROM FILE 


The objective of this first phase of the project is the demonstration 
of a graphic display of telecommunications circuits. Each circuit 
will be plotted on a map as a line between the circuit's two 
endpoints. Each endpoint will be identified by the facility code of 
its location. Each circuit will be identified by its own unique 
code. The map will be displayed on a CRT screen. All attribute 
values describing the circuits will be provided in a simple local 
disk file. The salient process must convert the given attribute 
values into the graphic display in a way that is convenient and 
timely for the user. 

The AutoCAD drafting software, version 10, was chosen for the graphic 
display. Version 10 is the first version available for the Sun 3 
workstation, which is the target hardware of this project. AutoCAD 
has a well-established user base on other hardware, however, making 
it more likely that potential users will have experience with its 
fundamental features. AutoCAD provides the Autolisp interpreter, 
which allows creation of new functions and commands. AutoCAD's 
standard menu is accessible for customization to specialized tasks. 
The map used for the display is an equatorial Mercator projection 
generated on an MSDOS PC using the WorldDXF software purchased from 
Micro Map & CAD, 9642 W. Virginia Cir, Lakewood, CO 80226. To 
minimize storage and loading time a thinning radius of 300 Km was 
used for testing purposes . Utility functions provided with the map 
generator require that the central meridian value of -75.00 
degrees be stored in the AutoCAD variable userrl. For this project 
the map was saved with a view of the contiguous US. This primary view 
is shown automatically whenever the map is loaded. In addition, a 
customized menu was compiled while this map was loaded. The 
subsequent save of the map causes this menu to be automatically 
loaded with the map . 

The data describing the telecommunications circuits to be plotted 
was created with a text editor and stored as a disk file in the 
AutoCAD working directory. The file format was named circuits, and 
is shown in detail later in this document . Each record contains the 
attribute values for one circuit. Included in these attributes are 
the latitude and longitude for location of each endpoint. 

The file mapckt.lsp contains all the specialized Autolisp commands 
and functions for this project . Also included are utility map 
functions provided by Micro Map & CAD and written by Randy George. 
These utility functions are specific to the equatorial mercator maps 
generated by WorldDXF, and aid in converting latitude, longitude 
coordinates to drawing coordinates on the map. mapckt.lsp must be 
loaded with the Autolisp load function before use. 

To read the circuits file, the Autolisp command lladdckts was 
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PHASE 2: SYBASE TO FILE 
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For each row returned, it uses its secondary database structure to 
select a latitude and longitude for each endpoint. This is done by 
matching keys through three tables as described above. The attribute 
values for each circuit and the latitudes and longitudes in character 
form are delimited by spaces and written as a record of the circuits 
disk file. If the program concludes normally, it writes the message 
"SUCCEED" to the results file. This message does not, however, 
indicate the success of the database selection process . gtdbckt 
requires a valid database server password, a name for the circuits 
file, and a name for the results file. These values are provided as 
command line arguments . 

Phase 2 of the project solution was concluded by a successful 
demonstration of selection from the test database and creation of a 
disk file. The SQL scripts bldckt.sql and popckt.sql were used to 
build and populate the test database . gtdbckt was run from the 
AutoCAD working directory to produce a new circuits file in that 
directory. The new circuits file was compared with that created in 
Phase 1, and found to contain identical data in the correct format 


PHASE 3 : SYBASE TO AUTOCAD 


The objective of the third phase of the project is a demonstration 
of the combination of Phase 1 and Phase 2. This requires that the 
process of selection from the database be easily controlled from the 
graphic display system. The data resulting from that selection must 
then be available for plotting on the map. 

The Autolisp command seldbckts was created and added to mapckt.lsp 
for Phase 3 . This command prompts the user for a database server 
password and a circuits file name. It initializes an empty results 
file and an empty circuits file with the name entered. It then runs 
the C program gtdbckt with arguments for password, circuits file 
name, and results file name. This is done with the AutoCAD shell 
command as an independent process. AutoCAD waits until the process 
is finished. seldbckts then reads the results file to check for a 
"SUCCEED" message written by gtdbckt. If the message is found, the 
command indicates successful selection and the name of the circuits 
file . 

Phase 3 of the project solution was concluded by a successful 
demonstration of database selection controlled from AutoCAD and 
plotting of the resulting data. The map, menu, and Autolisp commands 
were loaded as in Phase 1. seldbckts was run from the menu. After 
entering a valid password and a circuits file name, seldbckts 
indicated successful selection from the database. As in Phase 1, 
lladdckts was run. The circuits file name entered was that created 
by database selection. The circuits plotted on the map were found 
to be identical to Phase 1 . The entire process was accomplished with 
a minimum of user input in a reasonably short time . 


'PHASE 4: AUTOCAD TO SYBASE 


Phase 4 of the project is essentially a reversal of the first three 
phases . It allows the user to plot new circuits on the map by 
supplying attribute values to the graphic display system. All 
attribute values may then be extracted from the map to create a disk 
file. The values from the disk file may inserted into the database 
by a process controlled from the graphic display system. 

The Autolisp command lladdckt prompts the user for all attribute 
values describing a circuit, including the latitudes and longitudes 
of the endpoints . It calls the function insckt (described in Phase 
1) with a list of attribute values for the circuit to be plotted on 
the map . 

The Autolisp command extckts prompts the user for the name of the 
circuits file to be created. It then searches the drawing "database" 
•to build a set of the internal entity names of all inserts of the 
block llckt. It indicates to the user the number of inserts found. 
With each entity name in the list it calls the function extckt, which 
returns a list of all attribute values for that circuit with its 
endpoints. It then writes a record consisting of the attribute 
values with space delimiters to the circuits file. 

The function extckt receives the entity name of an insertion of the 
llckt block. It extracts the attribute values from the insertion. 
These values include the entity handles of the two related endpoints. 
For each endpoint it converts the entity handle into an entity name. 
It calls the function extent with each entity name, and receives a 
list of the attribute values for the endpoint . extckt returns a list 
containing the attribute values from the circuit and the endpoints. 
The function extept receives the entity name of an insertion of the 
lleot block. It extracts the attribute values from the insertion 
and returns them in a list . 

A C program, pcdbckt, was created to insert rows into the circuit 
database table from the circuits disk file. This program was 
compiled on the Sun workstation, and includes the Sybase DB- Library 
interface to the database. The program reads each record from the 
circuits disk file and uses the attribute values to form a SQL insert 
transaction to add a new row to the circuit table. It does not attempt 
to insert new facilities, organizations, or wire centers, but assumes 
that the endpoints of the new circuits are existing facilities. In 
a live database it would be necessary to implement triggers to 
prevent insertion of new rows that violate this assumption. 

The Autolisp command insdbckts prompts the user for a database server 
password and a circuits file name. It initializes an empty results 
file, and opens the circuits file to determine its presence. It then 
runs the C program ptdbckt with arguments for password, circuits file 
name, and results file name. This is done with the AutoCAD shell 


command as an independent process. AutoCAD waits until the process 
is finished. insdbckts then reads the results -file to check for a 
"SUCCEED" message written by ptdbckt. If the message is found, the 
command indicates successful insertion to the database. 

Phase 4 of the project solution was concluded by a successful 
demonstration using the new elements described. The map, menu, and 
Autolisp commands were loaded. lladdckt was used to plot new 
circuits on the map by prompting the user to enter attribute values, 
extckts was used to extract attribute values to a circuits file named 
by the user, insdbckts was then run. After entering a valid password 
and the circuits file name from extckts, it indicated successful 
insertion into the database. To verify the success of lladdckt and 
extckts the circuits file was examined to compare its values with 
those entered by the user. Selection of the new rows from the 
database was used to provide a comparison for verification of 
ptdbckt. Both comparisons produced identical values. Excepting the 
additional user input needed to plot new circuits on the map, this 
process was found to function as easily as that of Phase 3. 


CONCLUSION 


From the beginning of this project it was known that certain 
limitations would be encountered. The detail of the map display was 
limited by rhe processing speed of the hardware platform. For this 
project this detail was limited by using a large thinning radius when 
generating the map. In the future it would be desireable to 
selectively limit the map detail in unused areas . Version 10 of the 
AutoCAD software was found to have only limited capabilities for 
controlling external processes . A more interactive capability would 
improve the interface used in this project. It is hoped that future 
versions will provide this improvement. 

This project has demonstrated a bridge between the data model of an 
RDBMS and the graphic display of a CAD system. It has been shown 
that the CAD system can be used to control the selection of data with 
spatial components from the database and then quickly plot that data 
on a map display. It has also been shown that the CAD system can be 
used to extract data from a drawing and then control the insertion 
of that data into the database . These demonstrations have been 
successful in a test environment that incorporates many features of 
known working environments . This suggests that the techniques 
developed in this project could be adapted for practical use. 


SPATIAL DATABASE NORMALIZED SCHEMA 


circuit (nsi_ckt_id, type_circuit, kbps, signal, tx_raedium, end_pointl, 
end_point2 ) 

facility (org_key, facility) 

torg (org_key, organization, commercial_phone) 

wire center (clli, npa, nxx, lata, locality, state, latitude, longitude) 


These database tables are intended only for the purpose of testing 
and demonstrating the functions of the AutoCAD graphic front-end 
project. Wherever possible their attributes coincide with those of 
the NASA Science Internet Database (NSI db) . Some tables and 
attributes required for this project have not been implemented in 
the NSI db . It is hoped that the design of this project will in the 
future allow transfer of data with a minimum of adaptation. 

Please note that all attributes described below are specified not to 
accept null values . Though some of these attributes are merely 
descriptive, they require non-null values to protect the integrity 
of derivative data structures in other parts of the system. The 
space-delimited disk files used by AutoCAD for input and output of 
block attributes would be corrupted by null values . In addition, 
AutoCAD will not allow null values to be entered as block attribute 
values . Specifying non-null default values for database attributes 
might be used as an alternative method of solving this problem. 


Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
circuit 

1) Name of Attribute: 

nsi_ckt_id 

2) Field Characteristics: 

char (20) 

3) Index Name and Characteristics: 

unique clustered index ckt_index on circuit (nsi_ckt_id) 

4 ) Nulls : 

not null 

5 ) Keys : 

pk 

6) Domain Rules: 

Unique identifier for circuit. 

Prevent update by access control. 

Service and material id. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
circuit 

1) Name of Attribute: 


2) 

type_circuit 
Field Characteristics : 

3) 

char ( 10 ) 

Index Name and Characteristics: 

4) 

no index 
Nulls : 

5) 

not null 
Keys : 

6) 

not a key field 
Domain Rules : 

Name of 

(e.g. common_carrier , ethernet) 
See NSI db design. 

Database Server: 


lilmud 

Name of the Database: 
spatial 

Name of the Table: 
circuit 

1) Name of Attribute: 

kbps 

2) Field Characteristics: 

char (04 ) 

3) Index Name and Characteristics: 

no index 

4 ) Nulls : 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Data rate of circuit in thousand bits per second. 
See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
circuit 

1) Name of Attribute: 

signal 

2) Field Characteristics: 

char (11) 

3) Index Name and Characteristics: 

no index 

4) Nulls: 

not null 

5) Keys: 



not a key field 
6) Domain Rules: 

Signal type of circuit (e.g. ANALOG, DIGITAL). 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database : 
spatial 

Name of the Table: 
circuit 

1) Name of Attribute: 

tx_medium 

2) Field Characteristics: 

char (20 ) 

3) Index Name and Characteristics: 

no index 

4) Nulls: 

not null 

5) Keys: 

not a key field 

6) Domain Rules : 

Transmission medium of circuit (e.g. TERRESTRIAL) . 
See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
circuit 

1) Name of Attribute: 

end_point 1 

2) Field Characteristics: 

char (10) 

3) Index Name and Characteristics: 

nonclustered index cel_index on circuit (end_pointl) 

4 ) Nulls : 

not null 

5) Keys: 

fk->facility . facility INS RST 

UPD RST 

6) Domain Rules: 

Facility of first endpoint of circuit. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 


Name of the Table: 
circuit 

1) Name of Attribute: 

end_point2 

2) Field Characteristics: 

char ( 10 ) 

3) Index Name and Characteristics: 

nonclustered index ce2_index on circuit (end_point2 ) 

4) Nulls : 

not null 

5) Keys: 

fk->f acility . facility INS RST 

UPD RST 

6) Domain Rules: 

Facility of second endpoint of circuit . 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table : 
facility 

1) Name of Attribute: 

org_key 

2) Field Characteristics: 

int 

3) Index Name and Characteristics: 

unique clustered index fac_index on 
facility (org_key, facility) 

4) Nulls: 

not null 

5 ) Keys : 

pk (part of composite: facility .org_key, facility) 

f k->torg . org_key INS RST 

6) Domain Rules: 

Prevent update by access control. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
facility 

1) Name of Attribute: 

facility 

2) Field Characteristics: 
char (20) 

Index Name and Characteristics: 


3 ) 



unique clustered index fac_index on 
facility (org_key, facility) 

4) Nulls: 

not null 

5) Keys: 

pk (part of composite: facility . org_ 

->circuit . end_point 1 DLT RST 
->circuit . end_point2 DLT RST 

6) Domain Rules: 

Facility code of facility. 

Prevent update by access control. 
Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
torg 

1) Name of Attribute: 

org_key 

2) Field Characteristics: 

int 

3) Index Name and Characteristics: 

unique clustered index org_index on 
torg (org_key, organization) 

4) Nulls: 

not null 

5) Keys : 

pk (part of composite: torg.org_key 

->f acility . org_key DLT RST 

6) Domain Rules: 

Unique artificial key for torg. 
Prevent update by access control. 

See NS I db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
torg 

1) Name of Attribute: 

organization 

2) Field Characteristics: 

char (30) 

3) Index Name and Characteristics: 

unique clustered index org_index on 
torg (org_key, organization) 


key, facility) 


organization) 


4) Nulls: 

not null 

5) Keys: 

pk (part of composite: torg . org_key, organization) 

6) Domain Rules: 

Identifier of torg. 

Prevent update by access control. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database : 
spatial 

Name of the Table: 
torg 

1) Name of Attribute: 

commercial_phone 

2) Field Characteristics: 

char (20) 

3) Index Name and Characteristics: 

no index 

4) Nulls: 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Phone_rule: (nnn) nnn-nnnn 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database : 
spatial 

Name of the Table: 
wire_center 

1) Name of Attribute: 

clli 

2) Field Characteristics: 

char ( 11 ) 

3) Index Name and Characteristics: 

unique clustered index wct_index on wire_center (clli) 

4) Nulls: 

not null 

5) Keys: 

pk 

6) Domain Rules: 

Unique identifier for wire_center. 

Prevent update by access control. 


Name 


See NS I db design, 
of Database Server: 
lilmud 
Name of the Database: 
spatial 

Name of the Table : 
wire_center 

1) Name of Attribute: 

npa 

2) Field Characteristics: 

char (03 ) 

3) Index Name and Characteristics: 

nonclustered index wcx_index on wire_center (npa, nxx) 

4) Nulls: 

not null 

5) Keys: 

(part of composite: npa, nxx) 
lookup-> substring (commercial_phone, 2,3) 

6) Domain Rules: 

Areacode of wire_center. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database : 
spatial 

Name of the Table : 
wire_cent er 

1) Name of Attribute: 

nxx 

2) Field Characteristics: 

char (03 ) 

3) Index Name and Characteristics: 

nonclustered index wcx_index on wire_center (npa, nxx) 

4) Nulls: 

not null 

5) Keys: 

(part of composite: npa, nxx) 
lookup->substring (commercial_phone, 6,3) 

6) Domain Rules: 

Exchange of wire_center. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 


wire_center 

1) Name of Attribute: 

lata 

2) Field Characteristics: 

char ( 03 ) 

3) Index Name and Characteristics 

no index 

4) Nulls: 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Lata of wire_center. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
wire_center 

1) Name of Attribute: 

locality 

2) Field Characteristics: 

char (2 6) 

3) Index Name and Characteristics 

no index 

4) Nulls: 

not null 

5) Keys: 

nor a key field 

6) Domain Rules: 

Locality of wire_center. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
wire_center 

1) Name of Attribute: 

state 

2) Field Characteristics: 

char ( 02 ) 

3) Index Name and Characteristics 

no index 

4) Nulls: 


5 ) 


not null 
Keys : 

not a key field 
6) Domain Rules: 

State of wire_center. 

See NSI db design. 

Name of Database Server: 
lilmud 

Name of the Database : 
spatial 

Name of the Table: 
wire_center 

1) Name of Attribute: 

latitude 

2) Field Characteristics: 

float 

3) Index Name and Characteristics: 

no index 

4 ) Nulls : 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Latitude of wire_center in decimal degrees. 
Name of Database Server: 
lilmud 

Name of the Database: 
spatial 

Name of the Table: 
wire_center 

1) Name of Attribute: 

longitude 

2) Field Characteristics: 

float 

3) Index Name and Characteristics: 

no index 

4) Nulls: 

not null 

5) Keys: 

not a key field 

6) Domain Rules: 

Longitude of wire_center in decimal degrees. 


SQL SCRIPTS 


/* 

** Script:: 

** Author: 

** Interpreter: 

** Purpose: 

* * 

* * 

*/ 


bldckt.sql (build circuit) 

Tom Brownfield 1990 
Sybase isql 

Create database objects necessary for 
demonstrating the AutoCAD graphic 
front-end with circuits data. 


/* Use the spatial database. */ 
use spatial 
go 


/* Create tables. */ 
create table circuit 


(nsi_ckt_id 

char (20) 

not null 

, type_circuit 

char (10) 

not null 

, kbps 

char (04) 

not null 

, signal 

char (11) 

not null 

,tx medium 

char (20) 

not null 

, end_point 1 

char (10) 

not null 

, end point2 

char (10) 

not null 


) 

go 


create table facility 
(org_key 
, facility 
) 


int 

char ( 10 ) 


not null 
not null 


create table torg 


(orq_key 

int 

not 

null 

f organization 

char (30 ) 

not 

null 

, commercial_j?hone 

char (20) 

not 

null 


) 


go 


create table wire_center 
(clli 
,npa 
, nxx 
, lata 


char (11) 

not 

null 

char (03) 

not 

null 

char (03) 

not 

null 

char (03) 

not 

null 



not null 
not null 
not null 
not null 


/* Create indexes. */ 

create unique clustered index ckt_index 
on circuit (ns i_ckt_id) 
go 


, locality 
, state 
, latitude 
, longitude 
) 


char (2 6) 
char (02 ) 
float 
float 


go 


create unique clustered index fac_index 
on facility (org_key, facility) 
go 

create unique clustered index org_index 
on torg (org_key, organization) 
go 

create unique clustered index wct_index 
on wire_center (clli) 
go 

create nonclustered index wcx_index 
on wire_center (npa, nxx) 
go 

/* end */ 

/* 

** Script: 

** Author: 

** Interpreter: 

** Purpose: 

* * 

1c 1c 

*/ 


popckt . sql (populate circuit) 

Tom Brownfield 1990 
Sybase isql 

Populate database tables necessary 
for demonstrating the AutoCAD graphic 
front-end with circuits data. 


/* Use the spatial database. */ 
use spatial 
go 

/* Insert wire_center data. */ 
begin tran 

insert into wire_center values 

( 'X' 



, ' 206 ' 

, ’ 111 ' 

, ’ 001 ' 

, ' Xtown ’ 

, 'WA' 

, 48.0 
, - 122.0 
) 

commit tran 
go 

begin tran 

insert into wire_center values 
( ' Y’ 

, *402 ' 

, ’ 222 ’ 

, '002 ' 

, ' Ytown ’ 

, 'NB ' 

, 38.0 

,- 97.0 

) 

commit tran 
go 

begin tran 

insert into wire_center values 
( 'A' 

, ' 415 ' 

, ’ 335 ’ 

, ’ 003 ’ 

, 'Mountain View 1 
, *CA’ 

, 38.0 

,- 122.0 

) 

commit tran 
go 

begin tran 

insert into wire_center values 

( 'B' 

,' 113 ' 

, ’444 ’ 

, '004 • 

, ’Houston’ 



, 'TX' 

, 28.0 
, - 97.0 
) 

commit tran 
go 

begin tran 

insert into wire_center value 
( ’C* 

, ’ 818 ’ 

, ’ 555 ’ 

, ’ 005 ’ 

, ’Pasadena ’ 

, ’CA’ 

, 34.0 
, - 118.0 
) 

commit tran 
go 

/* Insert torg data. */ 
begin tran 

insert into torg values 
(1 

, ’ Xorg ’ 

, ’ ( 206 ) 111 - 1111 * 

) 

commit tran 
go 

begin tran 

insert into torg values 
(2 

, ’ Yorg ’ 

, ’ ( 402 ) 222-2222 * 

) 

commit tran 
go 

begin tran 

insert into torg values 
(3 

, ’NASA Ames * 

, ’ ( 415 ) 335-3333 * 

) 



commit tran 
go 

begin tran 

insert into torg values 
(4 

, 'NASA Johnson ' 

, ' ( 713 ) 444 - 4444 ’ 

) 

commit tran 
go 

begin tran 

insert into torg values 
(5 

, 'NASA JPL ' 

, ’ ( 818 ) 555-5555 ' 

) 

commit tran 
go 

/* Insert facility data. */ 
begin tran 

insert into facility values 
(1 

, ' XXX ' 

) 

commit tran 
go 

begin tran 

insert into facility values 
(2 

, ' YYY ' 

) 

commit tran 
go 

begin tran 

insert into facility values 
(3 

, 'ARC' 

) 

commit tran 
go 


begin tran 

insert into facility values 
(4 

, ' JSC ' 

) 

commit tran 
go 

begin tran 

insert into facility values 
(5 

, ' JPL ' 

) 

commit tran 
go 

/* Insert circuit data. */ 
begin tran 

insert into circuit values 

( ' XXXYYY ’ 

, ' NSN ' 

, '224 ' 

, 'DIGITAL' 

, 'TERRESTRIAL' 

, 'XXX' 

, ' YYY ’ 

) 

commit tran 
go 

begin tran 

insert into circuit values 
( ' NSIARC_JSC ' 

, 'NSN' 

, ' 448 ' 

, 'DIGITAL' 

, 'TERRESTRIAL' 

, 'ARC' 

, ' JSC ’ 

) 

commit tran 
go 


begin tran 

insert into circuit values 



( ' NS I ARC_ JP L ' 

, ' NSN ' 

, ' 168 ' 

, 'DIGITAL' 

, ’ TERRESTRIAL ’ 
, ’ AP.C ' 

, ’ JPL’ 


commit tran 
go 

begin tran 

insert into circuit values 
( ' NSI JPL_JSC ' 

, 'NSN' 

, ' 168 ' 

, 'DIGITAL ' 

, 'TERRESTRIAL' 

, ' JPL ’ 

, ’ JSC ’ 

) 

commit tran 
go 

/* List all entries in the database. */ 
print '*** wire_center ***' 
select * from wire_center 
go 

print '*** torg ***' 
select * from torg 
go 

print '*** facility ***' 
select * from facility 
go 

print '*** circuit ***' 
select * from circuit 
go 


/* end */ 


DISK FILE SCHEMA 


circuits (nsi_ckt_id, type_circuit , kbps , signal, tx_medium, end_point 1 
, latitudel, longitudel, end_point2 , latitude2, longitude2) 

results (success) 


These disk files provide the needed data storage between the database 
system and the AutoCAD system. They are sequential text files 
contained in the current working directory. All attributes are 
variable-length character fields delimited by spaces. Spaces are 
optional at the end of a record. 

The circuits file contains latitudes and longitudes which are 
character representations of values contained in the database as 
wire_center . latitude and wire_center . longitude . All other attribute 
values are identical to those in the database. 

The results file indicates the results of a DB-LIBRARY C program 
process. Success will contain the value "SUCCEED” when the program 
writing it is successfully completed. This does not, however, 
indicate the success or failure of individual database transactions. 
At this time such indications are returned as database messages and 
errors through standard console output . Additional attributes should 
be added to this file if this interface is to be used in an 
environment where the user requires improved control information. 


AUTOCAD MENU 


The following is a partial listing of mapckt.mnu from the 
beginning of the file through the modified section: 

* **BUTTCNS 


$pl=* 

A c A c 

A B 

A 0 

A G 

A D 

A E 

A rp 

***AUX1 


$pl=* 

A C A C 

A B 

A 0 

A G 

A D 

A E 

A »p 

***POPl 

[Tools] 

[OSNAP] A C A C$pl= $pl=* OSNAP \ 
[CENter] CENTER 
[ENDpoint ] ENDPOINT 
[INSert] INSERT 
[INTersec] INTERSEC 
[MIDpoint ] MIDPOINT 
[NEArest ] NEAREST 
[NODe ] NODE 
[PERpend] PERPEND 
[QUAdrant ] QUADRANT 
[QUICK, ] QUICK, A Z 
[TANgent ] TANGEN 
NONE 
[ ] 

[Cancel] A C A C 
[U] A C A CU 
[Redo] A C A CREDO 
[Redraw] ' REDRAW 


***P0P2 

[Draw] 

[Line] * A C A C$S=X $s=line line 

[Arc] * A C A CSS=X $ 5 =poparc arc 

[Circle ] * A C A CSS=X $s=popcircl circle 

[Polyline] * A C A C$S=X $s=pline pline 

[Insert ] A C A Csetvar attdia 1 $s=insert insert 

[Dtext ] * A C A C$S=X $s=Dtext Dtext 

[Hatch] A C A C$i=hatchl $i=* 

***P0P3 

[Edit] 

[Erase ] * A C A Cerase si auto 

[Move] * A C A Cmove si auto 

[Copy] * A C A Ccopy si auto 

[Trim] * A C A C$S=X $s=trim trim auto 

[Extend] * A C A C$S=X $s=extend extend auto 

[Stretch] * A C A C$S=X $s=stretch stretch crossing 

[Polyedit] * A C A C$S=X $s=pedit pedit 

* **POP 4 
[Display] 

[Window] ’zoom w 
[Previous] 'zoom p 
[Dynamic] 'zoom d 
[Pan] 'pan 

[3D View] A C A C$i=3dviews $i=* 

***POP5 
[Modes ] 

[Drawing Aids] 'ddrmodes 
[Entity Creation] 'ddemodes 
[Modify Layer] 'ddlmodes 

***POP6 

[Options] 

[Ashade] A P (cond ((null C: SCENE) + 

(vmon) (prompt "Please wait... Loading ashade. ") + 
(load "ashade")) (T (princ) ) ) A P$i=as $i=* 

[3D Ob jects ] A P (cond ((null C:CONE) + 

(vmon) (prompt "Please wait... Loading 3D Objects. ") + 
(load "3d")) (T (princ))) A P$i=3D0b jects $i=* 

[Fonts] A C A C$i=fontsl $i=* 

[DXFScript ] A C A CDXFSCRIPT SCRIPT; D : /S/DXF GRAPHSCR; 

[Stack] A C A CSTACK 
[MOD] A C A CMOD 


***P0P7 
[File ] 

[Save] A C A CSave 
[End] A C A Cend 

[Quit ] A C A C$S=X Ss=quit quit 
[ ] 

[Plot] A C A Cplot 
[Print] A C A Cprplot 


***P0P8 
[Mercator Map] 

[LOAD Merc] A C A C (load "mercator") 

[LOAD Merc3D ] A C A C ( load "merc3D") 

[Lat Long] A C A CLatLong 

[Map Dist ] A C A CMapDist 

[Add Pt] A C A CLLaddPt 

[Add Pts] A C A CLLaddPts 

[Del Pt] A C A CLLdelPt 

[Del Pts] A C A CLLdelPts 

[Map Radius] A C A CMapRadius 

[Add Lines] A C A CLLaddLines 

[WDBII ] A C A CWDB WWDBtoDXF script load 

* * **POP 9 

[Map Circuits] 

[LOAD Circuits] A C A C (load "mapckt") 

[Add Ckts] A C A CLLaddCkts 

[Add Ckt] A C A CLLaddCkt 

[Del Ckts] A C A CDelCkts 

[Ext Ckts] A C A CExtCkts 

[Sel Ckts] A C A CSelDBCkts 

[Ins Ckts] A C A CInsDBCkts 



AUTOLISP COMMANDS AND FUNCTIONS 


* File: 

* Interpreter: 

* Purpose : 

* 


mapckt . lsp (map circuits) 

AutoCAD Autolisp version 10 

Provide AutoCAD commands and functions 

to plot circuits on a world-mercator map. 


*Global variables and utility map functions from 
*mercator . lsp by Randy George 8/15/88. Modifications 
*are noted by comments. 

* Global variables: 
earth : earth radius in meters 6371 
lat : latitude 

long : longitude 

inc : lat or long increment 
vb : Blipmode variable 

vc : Cmdecho variable 


* ********** 


;* Utility map functions: 

(vmon) 

(prompt "\nloading . Please wait...") 

(terpri) 

(defun MODES (a) 

(setq MLST ' () ) 

(repeat (length a) 

(setq MLST (append MLST (list (list (car a) (getvar 
(car a) ) ) ) ) ) 

(setq a (cdr a) ) ) 


(defun MODER () 

(repeat (length MLST) 

(setvar (caar MLST) (cadar MLST) ) 

(setq MLST (cdr MLST)) 

) 

) 

(defun *ERROR* (st) 

(moder) 

(terpri) 

(princ "\nError: ") 

(princ st) 

(princ) 

) 

(defun sqr(x) 

(* x x) 

) 

(defun arccos (x) 

(if (/= (abs x) 1.0) 

(- (* pi 0.5) (atan (/ x (sqrt (- 1.0 (* x x) ) ) ) ) ) 

(* (- 1.0 x) pi 0.5) 


) 

(defun arcsin (x) 

(if (/= (abs x) 1.0) 

(atan (/ x (sqrt (- 1.0 (* x x) ) ) ) ) 

( * x pi 0.5) 


) 


>■ 

(defun arctanh (x) 

(if (/= x 1.0) 

(/ (log (/ (+ 1.0 x) (- 1.0 x) ) ) 2.0) 
(list 99999999.0) 

) 

) 

(defun tanh (x / el e2) 

(setq el (exp x) ) 

(setq e2 (exp (* -1.0 x) ) ) 

(/ (- el e2 ) (+ el e2) ) 

) 

(defun Radian ( deg ) 

(* deg 0.0174533) 

) 

(defun Degree ( rad) 

(* 57.29578 rad) 

) 

(defun Meridian (LongR LongRO / delta) 

(setq delta (- LongR LongRO) ) 

(if (< delta -3.1415927) 

(setq delta ( + delta 6.2831853)) 

) 

(if (> delta 3.1415927) 

(setq delta (- delta 6.2831853)) 

) 

(setq delta delta) 

) 


(defun Mercator (LongR LongRO LatR radius /) 

(if (< (abs (Radian LatR)) 1.397) 

(progn 

(setq LongR (Meridian (Radian LongR) (Radian LongRO) ) ) 
(setq x (* radius LongR)) 

(setq y (* radius (arctanh (sin (Radian LatR))))) 

(list x y) 

) 

(list 0.0 0.0) 

) 


) 


(defun InvMeridian (delta LongRO / ) 

( setq delta (+ delta LongRO)) 

(if (< delta -3.1415927) 

(setq delta ( + delta 6.2831853)) 

) 

(if (> delta 3.1415927) 

(setq delta (- delta 6.2831853)) 

) 

(setq delta delta) 

) 

(defun InvMercator ( pt LongRO radius / delta ) 

(setq delta (/ (car pt) radius)) 

(setq LongR (Degree (InvMeridian delta (Radian LongRO) ) ) ) 
(setq LatR (Degree (arcsin (tanh (/ (cadr pt) radius))))) 
(list LatR LongR) 

) 

(defun Arc ( pt radius / ) 

(setq LongR (Degree (/ (car pt) radius))) 

(setq LatR (Degree (arcsin (tanh (/ (cadr pt) radius))))) 
(list LatR LongR) 


; Parse input string into list of strings 
(defun sparse (S / LL TMP CNT) 

(setq TMP CNT 0) 


(while (< CNT (strlen S) ) 
(setq CNT (1+ CNT) ) 
(cond 

((and (or (= (substr 
( = (substr 
(setq LL (cons TMP 
( (= (substr S CNT 1) 

( (= (substr S CNT 1) 
(t (setq TMP (strcat 

) 


S CNT 1 ) " , " ) 

S CNT 1) " ") ) (/= TMP "") ) 

LL) TMP "")) 

" , " ) ) 

" ")) 

TMP (substr S CNT 1)))) 


) 

;*modified to prevent adding null element to end of list 
; *Tom Brownfield 12/5/90 
(if (/= TMP "") 

(reverse (cons TMP LL) ) 

(reverse LL) 


) 



********** 


* Main Program 

'k'k'k'kJcic'k'k'k'k 


★ *•**■****•** 

* Function: 

* Author: 

* Purpose : 

* 

* Inputs : 

* 

* Outputs : 


insckt (insert a circuit) 

Tom Brownfield 1990 

Insert blocks for a circuit and two endpoints 
and draw a line between the endpoints, 
central meridian, earth radius, attribute 
values for circuit and endpoints . 
command line . 


(defun insckt 

( central earth 

elatl elongl facl elat2 elong2 fac2 
cktid tckt kbps sgnl txmed 
/ errcnt lat long ptl epleh pt2 ep2eh lineeh pt3) 


; initialize error count. 

(seta errcnt 0) 

t 

; *Convert latitude, longitude to float. 

(setq lat (atof elatl)) 

(if (null lat) (setq lat 0.0)) 

(setq long (atof elongl) ) 

(if (null long) (setq long 0.0)) 

• ★ 

; *Get drawing coordinates for endpointl by calling the 
; *the function mercator with latitude, longitude, 

; *central meridian as arguments . 

(setq ptl (mercator long central lat earth) ) 

(if (and (= (car ptl) 0.0) (= (cadr ptl) 0.0)) 

(progn 

(setq errcnt (1+ errcnt)) 

(princ "**** Invalid latitude/longitude ***") 
(terpri) 

(princ (rtos lat 2 4) ) 

(princ ", ") 

(princ (rtos long 2 4)) 

) 

) 

r 

; *Get drawing coordinates for endpoint2 as above. 

(setq lat (atof elat2) ) 

(if (null lat) (setq lat 0.0)) 
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(setq long (atof elong2)) 

(if (null long) (setq long 0.0)) 

(setq pc2 (mercator long central lat earth) ) 

(if (and (= (car pt2) 0.0) (= (cadr pt2) 0.0)) 

(prcgr. 

(setq errcnt (1+ errcnt) ) 

(princ "**** Invalid latitude/longitude ***") 

(terpri) 

(princ (rtos lat 2 4)) 

(princ ",") 

(princ (rtos long 2 4)) 

) 

) 

t 

;*Execute block inserts of endpoints, at the drawing 
; Coordinate points, with attribute values. 

; *Get the entity handles of the endpoint inserts. 

; Craw a line between the endpoints. 

; *Get the entity handle of the line. 

; *Get the coordinates of the midpoint of the line. 

; *Execute a block insert of the circuit, at the 
;*midpoint, with attribute values including the three 
;*entity handles of the related entities. 

(if (= errcnt 0) 

(progn 

(command "insert" "llept" ptl "" "" "" facl elatl 
elcngl ) 

(setq epleh (cdr (assoc 5 (entget (entlast) ) ) ) ) 

(command "insert" "llept" pt2 "" "" "" fac2 elat2 
elong2 ) 

(setq ep2eh (cdr (assoc 5 (entget (entlast))))) 

(command "LINE" ptl pt2 "") 

(setq lineeh (cdr (assoc 5 (entget (entlast) ) ) ) ) 

(setq pt3 (polar ptl (angle ptl pt2) 

(/(distance ptl pt2)2))) 

(command "insert" "llckt" pt3 "" "" "" cktid tckt kbps 
sgnl 

txmed lineeh epleh ep2eh) 

) 

) 

) 

• ********** 

t 

;* Command: lladdckts (add circuits at latitude, longitude) 

;* Author: Tom Brownfield 1990 

;* Purpose: Read attributes from a circuits file, and plot 


* the circuits with endpoints on the map using 

* latitudes and longitudes from the file. 

* Inputs : command line 

* circuits disk file 

* Outputs : command line 

(defun C:lladdckts 
( 

/ central earth datafl fl 
slnl slstl slenl 
cktid tckt kbps sgnl txmed 
facl elatl elongl 
fac2 elat2 elong2 

) 


; *Save and turn off echo and blip. 

(modes ’ ( "CMDECHO" "BLIPMODE")) 

(setvar "CMDECHO" 0) 

(setvar "BLIPMODE" 0) 

f 

; *Set layer to POINTS . 

(command "LAYER" "M" "POINTS" "") 

r 

; *Get central meridian of map. 

(setq central (getvar "USERR1") ) 

f 

; *Set earth radius . 

(setq earth 6371.0 ) 

f 

; *Be sure entity handles are on. 

(command "HANDLES" "ON") 

/ 

; *Get the name of the circuits file. 

; *Open the file for input. 

(setq datafl (getstring "\nEnter name of circuits file 
(setq fl (open datafl "r") ) 

(if (not fl) 

( *ERROR* (strcat "cannot open file: " datafl)) 

) 

(if fl 
(progn 

r 

; *Read the first line from the circuits file, 
(setq slnl (read-line fl) ) 

f 


;*Process each line of the circuits file. 


(while slnl 
(progn 

f 

; *Get a list of attribute values by calling 
; *the function sparse with the input line as 
;*its argument. 

; *Count the number of attribute values — there 
; *should be 11 . 

(setq slstl (sparse slnl) ) 

(setq slenl (length slstl) ) 

(if (= slenl 11) 

(progn 

f 

;*Set variables to the attribute values 
;*from the list. 

(setq cktid (car slstl) ) 

(setq slstl (cdr slstl) ) 

(setq tckt (car slstl)) 

(setq slstl (cdr slstl) ) 

(setq kbps (car slstl) ) 

(setq slstl (cdr slstl) ) 

(setq sgnl (car slstl) ) 

(setq slstl (cdr slstl)) 

(setq txmed (car slstl) ) 

(setq slstl (cdr slstl)) 

(setq facl (car slstl) ) 

(setq slstl (cdr slstl)) 

(setq elatl (car slstl) ) 

(setq slstl (cdr slstl)) 

(setq elongl (car slstl) ) 

(setq slstl (cdr slstl) ) 

(setq fac2 (car slstl) ) 

(setq slstl (cdr slstl)) 

(setq elat2 (car slstl) ) 

(setq slstl (cdr slstl)) 

(setq elong2 (car slstl) ) 

(setq slstl (cdr slstl) ) 

t 

; * Insert circuit entities by calling 
;*the function insckt with the 
; *attribute values as arguments. 

(InsCkt 

central earth 

elatl elongl facl elat2 elong2 fac2 
cktid tckt kbps sgnl txmed 

) 



) 

(progn 

( *ERROR* "bad input data") 

(princ (strcat "\nlnput item count: " 
(itoa slenl) ) ) 

) 

) 

/ 

; *Read the next line from the 
;*circuits file. 

(setq slnl (read-line fl) ) 


) 

/ 

; *Close the circuits file, 
(close fl) 

) 

) 

r 

; *Restore echo and blip. 

(moder) 


********** 

* Command : 

* Author : 

* Purpose : 

* 

* 

* Inputs: 

* Outputs: 


lladdckt (add circuit at latitude, longitude) 
Tom Brownfield 1990 

Get attributes from the command line and plot 
a circuit with endpoints on the map using 
the latitudes and longitudes entered, 
command line 
command line 


(defun C: lladdckt 

( 

/ central earth 

clatl clongl clat2 clong2 cktid tckt kbps sgnl txmed 
elatl elongl ecktl facl 
elat2 elong2 eckt2 fac2) 


; *Save and turn off echo and blip, 
(modes ' ( "CMDECHO" "BLIPMODE")) 
(setvar "CMDECHO" 0) 

(setvar "BLIPMODE" 0) 


; *Set layer to POINTS. 

(command "LAYER" "M" "POINTS" "") 


; *Get central meridian of map. 
(setq central (getvar "USERR1") ) 

r 

; *Sez earth radius . 

(setq earth 6371.0 ) 


; *Be sure entity handles are on. 

(command "HANDLES" "ON”) 

f 

; *Get attribute values from the command line. 

(setq elatl (rtos 

(getreal "\nEnter first Latitude in decimal degrees: 
(setq elongl (rtos 

(getreal "\nEnter first Longitude in decimal degrees 
(setq facl (getstring "\nEnter FACILITY: ")) 

(setq elat2 (rtos 

(getreal "\nEnter second Latitude in decimal degrees 
(setq elong2 (rtos 
(getreal 

"\nEnter second Longitude in decimal degrees : ") 
(setq fac2 (getstring "\nEnter FACILITY: ") ) 

(setq cktid (getstring "\nEnter NSI_CKT_ID: ")) 

(setq tckt (getstring "\nEnter TYPE_CIRCUIT : ")) 

(setq kbps (getstring "\nEnter KBPS: ") ) 

(setq sgnl (getstring "\nEnter SIGNAL: ") ) 

(setq txmed (getstring "\nEnter TX_MEDIUM: ") ) 

f 

;*Insert circuit entities by calling the function 
;*insckt with the attribute values as arguments. 

(InsCkt 

central earth 

elatl elongl facl elat2 elong2 fac2 
cktid tckt kbps sgnl txmed 

) 

/ 

; *Restore echo and blip. 

(moder) 


********** 

* Function: 

* Author : 

* Purpose : 

* 


delckt (delete circuit) 

Tom Brownfield 1990 

Delete a circuit with its endpoints from 
the map . 

entity name of circuit insert 


Inputs : 



Outputs : 


none 


(defun delckt ( enarae / ent etype etag lineeh epleh ep2eh dname ) 


; *Save the given circuit entity name. 

(setq dname ename) 

f 

; *Get the first entity association list and entity type 
;*for the given entity name. 

(setq ent (entget ename) ) 

(setq etype (cdr (assoc 0 ent) ) ) 

r 

; *Process each entity association list in the INSERT 
; ^sequence . 

(while (not (equal etype "SEQEND" ) ) 

(progn 


;*For attribute entity lists: 

;* Get the attribute tags; 

; * Set variables to attribute values 

; * for the line and the two endpoint 

;* entity handles. 

(if (equal etype "ATTRIB") 

(progn 

(setq etag (cdr (assoc 2 ent) ) ) 

(if (equal etag "LINE_EH" ) 

(progn 

(setq lineeh (cdr (assoc 1 ent))) 

) 

) 

(if (equal etag "EP1_EH") 

(progn 

(setq epleh (cdr (assoc 1 ent) ) ) 

) 

) 

(if (equal etag "EP2_EH") 

(progn 

(setq ep2eh (cdr (assoc 1 ent) ) ) 

) 

) 

) 

) 

r 

; *Get the next entity name, association list, 
;*and entity type. 

(setq ename (entnext ename) ) 


(setq ent (entget ename) ) 

(seta etype (cdr (assoc 0 ent) ) ) 


;*Delete the circuit entity. 

(ent del dname) 

r 

; *Get the entity names for the entity handles of 
; *the line and the two endpoints. 

; *Delete the line and two endpoints . 

(setq ename (handent lineeh) ) 

(entdel ename) 

(setq ename (handent epleh) ) 

(entdel ename) 

(setq ename (handent ep2eh) ) 

(entdel ename) 


********** 


* Command : 

* Author : 

* Purpose: 

* 

* Inputs: 

* Outputs: 


delckts (delete all circuits) 

Tom Brownfield 1990 

Find all circuits plotted on the map 
and delete them, 
command line 
command line 


(defun C:delckts( / ss sscnt ssidx ename) 


; *Save and turn off echo. 

(modes ' ( "CMDECHO" ) ) 

(setvar "CMDECHO” 0) 

; *Build a selection set of all entity names of 
; insertions of the block LLCKT on the layer POINTS, 
(setq ss (ssget "X" (list (cons 0 "INSERT”) 

(cons 2 "llckt") 

(cons 8 "POINTS")))) 

r 

; *Count the number of entities selected. 

(if (null ss) 

(setq sscnt 0) 

(setq sscnt (sslength ss) ) 

) 

(princ (itoa sscnt)) 

(princ " circuits will be deleted.") 



(terpri) 


;*Set index for the first entity name in the set. 

(setq ssidx 0) 

r 

;*Process each entity name in the set. 

(while (> sscnt 0) 

(progn 

(setq ename (ssname ss ssidx) ) 

9 

;*Delete the circuit by calling the function 
;*delckt with the entity name as its argument, 
(delckt ename) 

;*Set index for the next entity name in the set. 
(setq ssidx (1+ ssidx)) 

(setq sscnt (1- sscnt)) 

) 

) 

9 

; *Redraw the screen to clean up the map. 

(redraw) 

r 

; *Restore echo. 

(moder) 

(princ) 


9 

;* Function: 
; * Author : 

; * Purpose : 

; * Inputs : 

;* Outputs: 


extept (extract endpoint) 

Tom Brownfield 1990 

Extract attribute values from an endpoint . 
entity name of endpoint insertion 
list of attribute values from endpoint 


(defun extept 
( ename 
/ ent etype 

efac elat elong 

) 


; *Get the first entity association list and entity type 
;*for the given entity name. 

(setq ent (entget ename)) 

(setq etype (cdr (assoc 0 ent) ) ) 



;*Process each entity association list in the INSERT 
; * sequence . 

(while (not (equal etype "SEQEND")) 

(progn 

; *For attribute entity lists: 

;* Get the attribute tags; 

;* Set variables to attribute values. 

(if (equal etype "ATTRIB") 

(progn 

(setq etag (cdr (assoc 2 ent) ) ) 

(if (equal etag "FACILITY") 

(setq efac (cdr (assoc 1 ent) ) ) 

) 

(if (equal etag "LATITUDE") 

(setq elat (cdr (assoc 1 ent) ) ) 

) 

(if (equal etag "LONGITUDE") 

(setq elong (cdr (assoc 1 ent))) 

) 

) 

) 

r 

;*Get the next entity name, association list, 
;*and entity type. 

(setq ename (entnext ename) ) 

(setq ent (entget ename) ) 

(setq etype (cdr (assoc 0 ent))) 

) 

) 

f 

; *Return return a list of the attribute values for 
; *the endpoint . 

(list efac elat elong) 

************ 

* Function: 

* Author: 

* Purpose : 

* Inputs : 

* Outputs : 


extckt (extract circuit) 

TomBrownf ield 1990 

Extract attribute values from a circuit, 
entity name of circuit insertion, 
list of attribute values from circuit 
and endpoints 


(defun extckt 
( ename 


/ ent etype etag 

cktid tckt kbps sgnl txmed lineeh epleh ep2eh 
facl elatl elongl fac2 elat2 elong2 
elistl elist2 

) 

f 

; *Get the first entity association list and entity type 
;*for the given entity name. 

(setq ent (entget ename) ) 

(setq etype (cdr (assoc 0 ent))) 

f 

;*Process each entity association list in the INSERT 
; *sequence . 

(while (not (equal etype "SEQEND " ) ) 

(progn 

f 

; *F or attribute entity lists: 

;* Get the attribute tags; 

;* Set variables to the attribute values. 

(if (equal etype "ATTRIB") 

(progn 

(setq etag (cdr (assoc 2 ent) ) ) 

(if (equal etag "NSI_CKT_ID") 

(setq cktid (cdr (assoc 1 ent))) 

) 

(if (equal etag "TYPE_CIRCUIT" ) 

(setq tckt (cdr (assoc 1 ent))) 

) 

(if (equal etag "KBPS") 

(setq kbps (cdr (assoc 1 ent) ) ) 

) 

(if (equal etag "SIGNAL") 

(setq sgnl (cdr (assoc 1 ent))) 

) 

(if (equal etag "TX_MEDIUM" ) 

(setq txmed (cdr (assoc 1 ent) ) ) 

) 

(if (equal etag "LINE_EH" ) 

(setq lineeh (cdr (assoc 1 ent) ) ) 

) 

(if (equal etag "EP1_EH") 

(setq epleh (cdr (assoc 1 ent))) 

) 

(if (equal etag "EP2_EH") 

(setq ep2eh (cdr (assoc 1 ent))) 


) 


) 


) 

t 

; *Get the next entity name, association list, 
; *and entity type. 

(setq ename (entnext ename) ) 

(setq ent (entget ename) ) 

(setq etype (cdr (assoc 0 ent))) 

) 

) 

; *Get the entity names for the entity handles of 
; *the two endpoints. 

; *Get a list of attribute values for each endpoint 
; *by calling the function extept with each entity 
; *name as its argument. 

(setq ename (handent epleh) ) 

(setq elistl (extept ename) ) 

(setq ename (handent ep2eh) ) 

(setq elist2 (extept ename) ) 

; *Set variables to the attribute values from the 
; *two endpoint lists. 

(setq facl (car elistl) ) 

(setq elatl (cadr elistl) ) 

(setq elongl (caddr elistl) ) 

(setq fac2 (car elist2) ) 

(setq elat2 (cadr elist2)) 

(setq elong2 (caddr elist2)) 

f 

; *Return a list of the attribute values for the 
; *circuit and its two endpoints. 

(list cktid tckt kbps sgnl txmed 
facl elatl elongl 
fac2 elat2 elong2) 


*********** 

* Command : 

* Author : 

* Purpose : 

* 

* 

* 

* Inputs: 

* Outputs: 


extckts (extract all circuits) 

Tom Brownfield 1990 

Find all circuits plotted on the map 
and extract all their attributes. 
Write a line of attributes to the 
circuits file for each circuit, 
command line 
command line 



circuits disk file 


(defun C:extckts( / ss sscnt ssidx ename clist clcnt cln ) 

/ 

; *Save and turn off echo. 

(modes ' ( "CMDECHO" ) ) 

(setvar "CMDECHO" 0) 

f 

; *Get the circuits file name from the command line. 

; *Open the file for output. 

(setq datafl (getstring "\nEnter name of circuits file: " 
(setq fl (open datafl "w")) 

(if (not fl) 

(♦ERROR* (strcat "cannot open file: " datafl)) 

) 

(if fl 
(progn 

f 

/♦Build a selection set of all entity names of 
/♦insertions of the block LLCKT on the layer POINTS 
(setq ss (ssget "X" (list (cons 0 "INSERT") 

(cons 2 "llckt" ) 

(cons 8 "POINTS")))) 

f 

; *Count the number of entities selected. 

(if (null ss) 

(setq sscnt 0) 

(setq sscnt (sslength ss)) 

) 

(princ (itoa sscnt)) 

(princ " circuits will be extracted.") 

(terpri) 

;*Set index for the first entity name in the set. 
(setq ssidx 0) 

/♦Process each entity name in the set. 

(while (> sscnt 0) 

(progn 

(setq ename (ssname ss ssidx) ) 

/ 

; *Get a list of attribute values by calling 
; *the function extckt with the entity name 
/♦as its argument. 

(setq clist (extckt ename) ) 

(setq cln "") 


; *Count the number of attribute values in 
;*the list. 

(if (null clist) 

(setq clcnt 0) 

(setq clcnt (length clist) ) 

) 


;*Process each attribute value in the list, 
(while (> clcnt 0) 

(progn 

f 

; *Put each value to the output line 
; *with a space delimiter. 

(setq cln (strcat cln (car clist) " ")) 
(setq clist (cdr clist) ) 

(setq clcnt (1- clcnt) ) 

) 

) 


; *Write the output line to the circuits file, 
(write-line cln fl) 


; *Set index for the next entity name in 
;*the set. 

(setq ssidx (1+ ssidx) ) 

(setq sscnt (1- sscnt) ) 


) 

/ 

; *Close the circuits file, 
(close fl) 

) 

) 

/ 

; *Restore echo. 

(moder) 

(princ) 


********** 

* Command: 

* Author: 

* Purpose : 

* 

* 


seldbckts (select database circuits) 

Tom Brownfield 1990 

Run a program to select attribute values 
from an external database and write them 
to a circuits file. 


;* Inputs: command line 

;* Outputs: command line 

;* circuits disk file 

(defun C:seldbckts 
( 

/ errcnt cname rname pname cf rf cmdline rline rlist succeed ) 

r 

; *Save and turn off echo. 

(modes ' ( "CMDECHO" ) ) 

(setvar "CMDECHO" 0) 

r 

/initialize error count. 

(setq errcnt 0) 

(if (= errcnt 0) 

(progn 

/initialize empty results file. 

(setq rname "selres.txt") 

(setq rf (open rname "w") ) 

(if (not rf) 

(progn 

( *ERROR* (strcat "cannot open file: ” rname)) 

(setq errcnt (1+ errcnt)) 

) 

(close rf) 

) 

) 

) 

(if (= errcnt 0) 

(progn 

f 

/ *Get the circuits file name from the command line. 

; initialize empty circuits file. 

(setq cname 

(getstring "\nEnter name of circuits file: ")) 

(setq cf (open cname V) ) 

(if (not cf) 

(progn 

( *ERROR* (strcat "cannot open file: " cname)) 
(setq errcnt (1+ errcnt)) 

) 

(close cf) 

) 

) 


) 



(if (= errcnt 0) 

(progn 

/ 

; *Get a db server password from the command line. 

(setq pname (getstring "\nEnter db server password: ") ) 
(if (= (strlen pname) 0) 

(progn 

( *ERROR* "null password”) 

(setq errcnt (1+ errcnt)) 

) 

) 

) 

) 

(if (= errcnt 0) 

(progn 

t 

;*Assemble a shell command to run the db selection 
; *program with arguments for password, circuits file 
;*name, and results file name. 

;*Execute the shell command. 

; *Read the results file to check for SUCCEED message, 
(setq cmdline (strcat "gtdbckt -P" pname " -C" cname 

" -R" rname) ) 

(command "SHELL" cmdline) 

(setq rf (open rname "r") ) 

(if (not rf) 

(progn 

( *ERROR* (strcat "cannot open file: " rname)) 
(setq errcnt (1+ errcnt)) 

) 

(progn 

(setq rline (read-line rf) ) 

(close rf) 

(setq rlist (sparse rline) ) 

(setq succeed (car rlist) ) 

(if (/= "SUCCEED" succeed) 

(progn 

(* ERROR* "db selection unsuccessful") 

(setq errcnt (1+ errcnt)) 

) 

(progn 

(princ "\nCircuits selected from database") 
(princ "\n to ") 

(princ cname) 

(princ "\n") 


) 



) 


) 


) 


;*Restore echo, 
(moder) 

(princ) 


• ★*★*■**■*■*** 
; * Command : 
; * Author : 

; * Purpose : 
. * 

. * 

; * Inputs : 

• * 

;* Outputs: 


insdbckts (insert database circuits) 
Tom Brownfield 1990 

Run a program to read attribute values 

from a circuits file and insert them 

into an external database. 

command line 

circuits disk file 

command line 


(defun C: insdbckts 

( 

/ errcnt cname rname pname cf rf cmdline rline rlist succeed ) 

r 

; *Save and turn off echo. 

(modes ' ( "CMDECHO" ) ) 

(setvar "CMDECHO" 0) 

r 

/initialize error count. 

(setq errcnt 0) 

(if (= errcnt 0) 

(progn 

/ 

; initialize empty results file. 

(setq rname "insres.txt") 

(setq rf (open rname "w")) 

(if (not rf) 

(progn 

( *ERR0R* (strcat "cannot open file: " rname)) 

(setq errcnt (1+ errcnt)) 

) 

(close rf) 

) 

) 


) 



(if (= errcnt 0) 

(progn 

f 

; *Get the circuits file name from the command line. 
;*Open the file to check its presence. 

(setq cname 

(getstring "\nEnter name of circuits file: ") ) 

(setq cf (open cname "r”)) 

(if (not cf) 

(progn 

( *ERROR* (strcat "cannot open file: " cname)) 
(setq errcnt (1+ errcnt) ) 

) 

(close cf) 

) 

) 

) 

(if (= errcnt 0) 

(progn 

t 

; *Get a db server password from the command line. 

(setq pname (getstring "\nEnter db server password: ") 

(if (= (strlen pname) 0) 

(progn 

(*ERROR* "null password") 

(setq errcnt (1+ errcnt) ) 

) 

) 

) 

) 

(if (= errcnt 0) 

(progn 

;*Assemble a shell command to run the db insertion 
; *program with arguments for password/ circuits file 
;*name, and results file name. 

;*Execute the shell command. 

; *Read the results file to check for SUCCEED message, 
(setq cmdline (strcat "ptdbckt -P" pname " -C" cname 

" -R" rname) ) 

(command "SHELL" cmdline) 

(setq rf (open rname "r") ) 

(if (not rf) 

(progn 

(*ERROR* (strcat "cannot open file: " rname)) 
(setq errcnt (1+ errcnt) ) 



(progn 

(setq rline (read-line rf) ) 

(close rf) 

(setq rlist (sparse rline) ) 

(setq succeed (car rlist) ) 

(if (/= "SUCCEED" succeed) 

(progn 

( * ERROR* "db insertion unsuccessful") 

(setq errcnt (1+ errcnt) ) 

) 

(progn 

(princ "\nCircuits inserted into database") 
(princ "\n from ") 

(princ cname) 

(princ "\n”) 

) 

) 

) 

) 

) 

) 


; *Restore echo, 
(moder) 

(princ) 


C PROGRAMS 


/* 
★ ★ 

Program: 

gtdbckt (get circuits from database) 

★ ★ 

Author : 

Tom Brownfield 1990 

* * 

Compiler : 

Sun UNIX C with Sybase DB-Library 

* * 

Purpose : 

Select rows from circuit database table. 

* * 


lookup latitude and longitude for each 

★ * 


endpoint, and write values to circuits 

★ * 


disk file. 

★ ★ 

Inputs : 

Optional program arguments : 

* * 


-C<circuits file name> 

* * 


-RCresult s_f ile_name> 

★ ★ 


-P<password> 

* * 


circuit, facility, torg, wire_center 

* * 


in spatial database 

* * 

Outputs : 

standard output messages 

* * 


circuits disk file 

* * 


results disk file 

*/ 




#include <stdio.h> 
♦include <sybfront.h> 
#include <sybdb.h> 
♦include <strings.h> 


#def ine 

BUFLEN 

200 

♦define 

PWDLEN 

64 

♦define 

NCILEN 

20 

♦define 

TCLEN 

10 

♦define 

KBPLEN 

04 

♦define 

SIGLEN 

11 

♦define 

TXMLEN 

20 

♦define 

EPLEN 

10 

♦define 

FLTLEN 

20 


/* 

** Forward declarations of the error handler, message handler, 
** and lookup function for latitudes and longitudes. 

*/ 

int err_handler ( ) ; 
int msg_handler ( ) ; 
int lookup_ll ( ) ; 


main(argc, argv) 
int argc; 



char 

{ 


*argv [ ] ; 


DBPROCESS 

*dbprocl ; 

/* 



/* 

DBPROCESS 

*dbproc2 ; 

/* 



/* 



/* 

LOGINREC 

* login; 

/* 

RETCODE 

return_codel ; 


RETCODE 

return_code2 ; 


DBINT 

lookup_okl ; 


DBINT 

lookup_ok2 ; 


char 

outbuf [BUFLEN] ; 


FILE 

*circuitsfile; 


FILE 

*resultsf ile ; 


char 

dbpwd [PWDLEN+1] 

t 

char 

cfname [BUFLEN] ; 


char 

rfname [BUFLEN] ; 


int 

i/ j/k; 


unsigned 



int 

count; 


int 

argerr; 



Primary connection with SQL */ 


server. */ 
Secondary connection with */ 
SQL server to be used by */ 
lookup_ll ( ) . */ 
Our login information. */ 


/* 

** These are the variables used to store the returning data. 
** <length>+l allows for a null character. 

** <length>+l allows for a space and a null character. 

*/ 

DBCHAR nsi_ckt_id [NCILEN+2 ] ; 

DBCHAR type_circuit [TCLEN+2] ; 

DBCHAR kbps [KBPLEN+2] ; 

DBCHAR signal [SIGLEN+2] ; 

DBCHAR tx_medium [TXMLEN+2 ] ; 

DBCHAR end_point 1 [EPLEN+2 ] ; 

DBCHAR end_point2 [EPLEN+2] ; 

DBCHAR eptsl [EPLEN+2] ; 

DBCHAR epts2 [EPLEN+2] ; 

DBCHAR lats [FLTLEN+1] ; 

DBCHAR longs [FLTLEN+1] ; 


/* Initialize password and file names to defaults. */ 
strcpy (dbpwd, "server_password" ) ; 
strcpy (cfname, "circuits") ; 
strcpy (rfname, "results") ; 



/* 

** Scan program arguments for valid options: 
** -C<circuits_f ile_name> 

** -R<results_f ile_name> 

** -P<password> 

*/ 

argerr = 0; 

for <i =1; i < argc; i++) { 

printf ( "argument : %s\n", argv[i]); 
if ( argv [ i ] [0] == { 

switch (argv[i][lj) { 
case ' C ' : 
j = 2; 
k = 0; 

while (argv[i] [ j] ) { 

cfname[k] = argv[i][j]; 

++ j ; 

++k; 


} 

cfname[k] = '\0'; 
break; 


case ' R ' : 
j = 2; 
k = 0; 

while (argv [i] [ j] ) { 

rfname[k] = argv[i][j]; 

++ j; 

++k; 

} 

rfname [k] = ' \0 ' ; 
break; 
case ' P ' : 


j = 2; 
k = 0; 

while (argv [i] [ j] ) { 

dbpwd [k] = argv[i] [ j] ; 

++ j ; 

++k ; 

} 

dbpwd [k] = ' \ 0 1 ; 
break; 
default : 

argerr = 1; 

printf ( "illegal option %c\n", 
break; 


argv[i] [1] ) ; 


} 


} 

else { 

argerr = 1; 

printf ( "opt ion must begin with ' -'\n"); 

} 

} 

/* Check for program argument errors. */ 
if (argerr) { 

printf ("%s had argument errors--discontinued. \n", 
argv [ 0 ] ) ; 
exit (STDEXIT) ; 

} 

/* Open results file. */ 

if ( (resultsfile = fopen (rfname, "w" ) ) == NULL) { 
printf ( "Unable to open file %s\n", rfname) ; 
exit (STDEXIT) ; 

} 

/* Open circuits file. */ 

if ( (circuitsf ile = fopen (cfname, "w" ) ) == NULL) { 
print f ( "Unable to open file %s\n", cfname) ; 
exit (STDEXIT) ; 

} 

/* Initialize DB-1IBRARY . */ 

if (dbinit () == FAIL) 
exit (ERREXIT) ; 


/* 

** Install the user-supplied error-handling and 
** message-handling routines. They are defined at 
** the bottom of this source file. 

*/ 

dberrhandle (err_handler) ; 
dbmsghandle (msg_handler) ; 

/* 

** Get a LOGINREC structure and fill it with the necessary 
** login information. 

*/ 

login = dblogin(); 

DBSETLPWD (login, dbpwd) ; 

DBSETLAPP (login, "getdbces") ; 


/* 

** Get two DBPROCESS structures for communicating with SQL 
** Server. A NULL servername defaults to the server 
** specified by DSQUERY. 

*/ 

dbprocl = dbopen ( login, NULL); 
dbproc2 = dbopen ( login, NULL); 

/* Use the spatial db . */ 
dbuse (dbprocl, "spatial"); 
dbuse (dbproc2 , "spatial"); 

printf ( "Select ing rows from the 'circuit' table:\n"); 

/* Assemble SQL select transaction in command buffer. */ 
dbcmd (dbprocl, "select * from circuit"); 

/* Send transaction to SQL server. */ 
dbsqlexec (dbprocl) ; 

/* Get results from transaction. */ 
while ( (return_codel = dbresults (dbprocl) ) != 

NO_MORE_RESULTS) { 
if (return codel == SUCCEED) { 


/* Bind columns 

to 

program variables . */ 

dbbind (dbprocl, 

1/ 

CHARB IND , 

0, 

nsi_ckt_id) ; 

dbbind (dbprocl. 

2, 

CHARBIND, 

0, 

type_circuit ) ; 

dbbind (dbprocl , 

3, 

CHARB IND, 

o. 

kbps) ; 

dbbind (dbprocl, 

4, 

CHARBIND, 

0, 

signal) ; 

dbbind (dbprocl, 

5, 

CHARBIND, 

0, 

tx medium) ; 

dbbind (dbprocl, 

6, 

CHARBIND, 

0, 

end_pointl) ; 

dbbind (dbprocl, 

7, 

CHARB IND , 

0, 

end point 2) ; 


/* 

** Initialize space in arrays 

** to serve as delimiter in circuits file. 

*/ 

nsi_ckt_id [NCILEN] = ' ' ; 

type_circuit [TCLEN ] = ' '; 

kbps [KBPLEN] = ' » ; 

signal [SIGLEN] = ' ’; 

t x_me d i um [ TXMLEN ] = ' ’; 

end_pointl [EPLEN] = ' 
end_point2 [EPLEN] = ' ' ; 



/* 

** Initialize null terminator in arrays 
** since CHARBIND does not add one. 

*/ 

nsi_ckt_id [NCILEN+1] = * \ 0 ' ; 
type_circuit [TCLEN+1] = ’ \0’; 
kbps [KBPLEN+1] = ’ \ 0 ’ ; 
signal [SIGLEN+1] = ’ \0 ’ ; 
tx_medium [TXMLEN+1 ] = * \ 0 ’ ; 
end_pointl [EPLEN+1] = * \ 0 * ; 
end_point2 [EPLEN+1] = * \ 0 ’ ; 

/* Get each selected row. */ 

while (dbnextrow (dbprocl ) !== NO_MORE_ROWS ) { 

printf 

( "%s%s%s%s%s\n" , 

nsi_ckt_id, type_circuit , kbps, signal, 
tx_medium) ; 

/* Copy variables to outbuf. */ 
strcpy (outbuf , nsi_ckt_id) ; 
strcat (outbuf , type_circuit ) ; 
strcat (outbuf, kbps) ; 
strcat (outbuf, signal) ; 
strcat (outbuf , tx_medium) ; 
strcat (outbuf, end_pointl) ; 

/* 

** Copy end_pointl to eptsl, and remove trailing 
** spaces by replacing the first space with a 
** null character. 

*/ 

strcpy (eptsl, end_pointl) ; 
eptsl [strcspn (eptsl, " ")] = '\0'; 

/* 

** Call lookup_ll() to get latitude, longitude 
** of eptsl using the secondary DBPROCESS . 

** Check results of lookup. 

*/ 

if ((lookup_okl = 

lookup_ll (dbproc2 , eptsl, lats, longs)) == 0) 
printf ("BAD LOOKUP %s\n", endjpointl) ; 
else { 

printf ("%s%s %s \n", end__pointl, lats, 


longs) ; 


/* 

** if lookup was ok, 

** copy variables to outbuf. 

*/ 

strcat (outbuf , lats); 
strcat (outbuf , " "); 
strcat (outbuf , longs); 
strcat (outbuf , " ") ; 

} 

/* Copy variables to outbuf. */ 
strcat (outbuf, end_point2) ; 

/* 

** Copy end_point2 to epts2, and remove trailing 
** spaces by replacing the first space with a 
** null character. 

*/ 

strcpy (ept s2 , end_point2); 
epts2 [strcspn (epts2 , " ")] = ’ \0 ' ; 

/* 

** Call lookup_ll() to get latitude, longitude 
** of epts2 using the secondary DBPROCESS . 

** Check results of lookup. 

*/ 

if ( (lookup_ok2 = 

lookup_ll (dbproc2 , epts2, lats, longs)) == 0) 
print f ( "BAD LOOKUP %s\n", end_point2); 
else { 

/* 

** if lookup was ok, 

** copy variables to outbuf. 

*/ 

printf("%s%s %s \n", end_point2, lats, 
longs) ; 

strcat (outbuf , lats); 
strcat (outbuf , ” ") ; 
strcat (outbuf , longs); 
strcat (outbuf , ” ") ; 

} 

/* Copy newline character to outbuf. */ 



strcat (outbuf , "\n”) ; 


/* 

** If both lookups were ok, write record 
** to circuits file. 

*/ 

if (lookup_okl —— 1 && lookup_ok2 == 1) 
fputs (outbuf , circuits file) ; 

} 

) 

} 

/* Close DBPROCESS structure. */ 
dbexitO; 

/* Close circuits file. */ 
f close (circuit sfile) ; 

/* Write "SUCCEED" message to results file and close. */ 
fputs ("SUCCEEDXn", resultsfile) ; 
fclose (resultsf ile) ; 

/* Normal program exit. */ 
exit (STDEXIT) ; 

} 

/* 

** Function: 

** Author: 

** Purpose: 

* * 

** Inputs: 

* * 

★ * 

* * 

* * 

* ★ 

** Outputs: 

* * 

* * 

*/ 

int lookup_ll (dbproc, epts, rlats, rlongs) 

DBPROCESS * dbproc; 

DBCHAR *epts ; 

DBCHAR *rlats ; 


lookup_ll (lookup latitude, longitude) 

Tom Brownfield 1990 

Select the latitude and longitude of the 
wire center serving an endpoint facility . 
Arguments : 

dbproc — pointer to DBPROCESS structure 
epts — pointer to string containing endpoint 
facility 

rlats — pointer to return string for latitude 
rlongs — pointer to return string for longitude 
latitude string value 
longitude string value 
function return error status 



*rlongs ; 


DBCHAR 

{ 

RETCODE return_code; 

DBCHAR lats [FLTLEN+1] ; 

DBCHAR longs [FLTLEN+1] ; 

DBINT dbcount; 

/* 

** Assemble SQL select transaction in command buffer 


** using epts for condition value. 

*/ 

dbcmd (dbproc, "select lats = str (w. latitude, 10, 4) , ") ; 

dbcmd (dbproc, " longs = str (w . longitude, 10, 4 ) ") ; 

dbcmd (dbproc, " from facility f,torg o, ") ; 

dbcmd (dbproc, " wire_center w ”) ; 

dbfcmd (dbproc, " where f. facility = ' %s' ", epts); 

dbcmd (dbproc, " and o.org_key = f.org_key ") ; 

dbcmd (dbproc, " and w.npa = ") ; 

dbcmd (dbproc, " substring (o . commercial_jphone, 2, 3) " ) ; 

dbcmd (dbproc, " and w.nxx = ") ; 

dbcmd (dbproc, " substring (o . commercial_phone, 6,3)"); 


/* Send transaction to SQL server. */ 
dbsqlexec (dbproc) ; 

/* Get results from transaction. */ 
while ( (return_code = dbresults (dbproc) ) != 

NO_MORE_RESULTS) { 
if (return_code == SUCCEED) { 

/* Bind columns to function variables. */ 
dbbind (dbproc, 1, STRINGBIND, 0, lats) ; 
dbbind (dbproc, 2, STRINGBIND, 0, longs); 

/* Get each selected row. */ 

while (dbnext row (dbproc) != NO_MORE_ROWS ) { 

/* Ignore any rows after the first. */ 
if (DBCURROW (dbproc) > 1) 
continue; 

/* copy function variables to outputs. */ 
strcpy (rlats, lats) ; 
strcpy (rlongs, longs); 

} 

} 



} 


/* 

** If one row was selected return 1 for success; 

** else return 0 for failure. 

*/ 

if ( (dbcount = DBCOUNT (dbproc) ) == 1) 
return ( 1 ) ; 

else 

return (0) ; 

} 

/* 

** Function: err_handler 

** Author: (from Sybase DBLibrary Examples) 

*/ 

int err_handler (dbproc, severity, dberr, oserr, dberrstr, 
oserrstr) 

DBPROCESS * dbproc; 
int severity; 

int dberr; 

int oserr; 

char *dberrstr; 

char *oserrstr; 

{ 

if ((dbproc == NULL) || (DBDEAD (dbproc) ) ) 
return (INT_EXIT) ; 
else { 

printf ( "DB-Library error : \n\t%s\n" , dberrstr); 
if (oserr != DBNOERR) 

printf ( "Operating-system error : \n\t%s\n", oserrstr) ; 
return (INT_CANCEL) ; 

} 

) 

/* 

** Function: msg_handler 

** Author: (from Sybase DBLibrary Examples) 

*/ 

int msg_handler (dbproc, msgno, msgstate, severity, msgtext, 
srvname, procname, line) 



DBPROCESS 

DBINT 

int 

int 

char 

char 

char 

DBUSMALLINT 


*dbproc; 
msgno; 
msgstate ; 
severity; 
*msgtext ; 

* srvname ; 

*procname; 

line; 


{ 

printf ("Msg %ld, Level %d, State %d\n", 
msgno, severity, msgstate) ; 

if (strlen (srvname) > 0) 

printf ("Server ' %s', ", srvname); 

if (strlen (procname) > 0) 

printf ("Procedure '%s', ", procname); 
if (line > 0) 

printf ("Line %d", line); 

printf ("\n\t%s\n", msgtext) ; 

return (0 ) ; 

} 


/* 



* * 

Program: 

ptdbckt (put circuits into database) 

* * 

Author : 

Tom Brownfield 1990 

•k k 

Compiler : 

Sun UNIX C with Sybase DB-Library 

k k 

Purpose : 

Read circuits disk file, and use the values 

k k 


to insert new rows into circuit database 

k k 


table . 

k k 

Inputs : 

Optional program arguments: 

k k 


-C<circuits_f ile name> 

k k 


-R<results_f ile_name> 

k k 


-P<password> 

k k 


circuits disk file 

k k 

Outputs : 

standard output messages 

k k 


circuit in spatial database 

k k 


results disk file 

*/ 




♦include <stdio.h> 
♦include <sybfront.h> 
♦include <sybdb.h> 
♦include <strings.h> 



fdefine BUFLEN 
#def ine PWDLEN 


200 

64 


/* 

** Forward declarations of the error handler and message 
** handler. 

*/ 

int err_handler ( ) ; 
int msg_handler ( ) ; 

main(argc, argv) 
int argc; 

char *argv[]; 

{ 

DBPROCESS *dbprocl; 

LOGINREC * login; 

RETCODE return_codel ; 

char 
char 
char 
int 
FILE 
FILE 

char dbpwd [PWDLEN+1] ; 

char cfname [BUFLEN] ; 

char rfname [BUFLEN] ; 

int i , j , k ; 

unsigned 

int count; 

int argerr; 

/* Initialize password and file names to defaults. */ 
strcpy (dbpwd, "server_password") ; 
strcpy (cfname, "circuits") ; 
strcpy (rfname, "results”) ; 

/* 

** Scan program arguments for valid options: 

** -C<circuits_f ile_name> 

** -R<results_f ile_name> 

** -P<password> 

*/ 


valbuf [BUFLEN] ; 
inbuf [BUFLEN] ; 
*ibp; 
tokcnt ; 

*circuitsf ile; 
*resultsf ile; 


/* Our connection with SQL */ 
/* server. */ 
/* Our login information. */ 


argerr = 0 ; 

for (1=1; i < argc; i++) { 

printf ( "argument : %s\n", argv[i]); 
if ( argv [ i ] [0] == ) { 

switch (argv[i][l]) { 
case ' C ' : 

j = 2; 

k = 0 ; 

while (argv[i] [ j] ) { 

cfname[k] = argv[i][j]; 

++ j : 

++k ; 

} 

cfname [k] = ' \0 ' ; 
break; 
case ' R' : 
j = 2; 
k = 0; 

while (argv [i] [ j ] ) { 

rfname[k] = argv[i][j]; 

++ j ; 

++k ; 

} 

rfname [k] = ' \0 ' ; 
break; 
case ' P ' : 
j = 2; 
k = 0; 

while (argv [i] [ j] ) { 

dbpwd[k] = argv[i][j]; 

++ j /' 

++k ; 

} 

dbpwd [k] = ' \0 ' ; 
break; 
default : 

argerr = 1; 

printf ( "illegal option %c\n" / argv [i] [1] ) ; 
break; 

} 

} 

else { 

argerr = 1; 

printf ( "option must begin with ' - ' \n") ; 

} 

} 


/* Check for program argument errors. */ 
if (argerr) { 

printf("%s had argument errors--discont inued . \n", 
argv [0] ) ; 
exit (STDEXIT) ; 

} 

/* Open results file. */ 

if ( (resultsfile = f open (rfname, "w") ) == NULL) { 
print f ( "Unable to open file %s\n", rfname) ; 
exit (STDEXIT) ; 

} 

/* Open circuits file. */ 

if ( (circuitsf ile = fopen (cfname, "r") ) == NULL) { 
printf ( "Unable to open file %s\n", cfname) ; 
exit (STDEXIT) ; 

} 

/* Initialize DB-1IBRARY. */ 
if (dbinit () == FAIL) 
exit (ERREXIT) ; 


/* 

** Install the user-supplied error-handling and 
** message-handling routines. They are defined at 
** the bottom of this source file. 

*/ 

dberrhandle (err_handler) ; 
dbmsghandle (msg_handler ) ; 

/* 

** Get a LOGINREC structure and fill it with the necessary 
** login information. 

*/ 

login = dbloginO; 

DBSETLPWD (login, dbpwd) ; 

DBSETLAPP (login, "putdbckts") ; 

/* 

** Get a DBPROCESS structure for communicating with SQL 
** Server. A NULL servername defaults to the server 
** specified by DSQUERY . 

*/ 



dbprocl = dbopen ( login, NULL) ; 

/* Use the spatial db . */ 
dbuse (dbprocl , "spatial"); 

printf ("Inserting rows into the 'circuit' table:\n"); 
/* Read each record from circuits. */ 

while ( ( f gets ( inbuf , BUFLEN, circuitsf ile) ) != NULL) { 

/* 

** Scan the first space-delimited token. 

** Copy it to valbuf surrounded by quotes. 

*/ 

tokcnt =0; 

if (ibp = (char *) strtok (inbuf , " ")) { 

tokcnt ++; 

strcpy (valbuf, " ’ ") ; 
strcat (valbuf, ibp) ; 
strcat (valbuf, " ' " ) ; 

} 

/* 

** Scan the remaining tokens. 

** Copy the second through sixth and the ninth 
** (excluding latitudes and longitudes) to valbuf 
** separated by commas and surrounded by quotes. 
*/ 

while (ibp = (char *) strtok (NULL, " ") ) { 

tokcnt++; 

if ( (tokcnt < 7) | | (tokcnt == 9) ) { 

strcat (valbuf, ", ' ") ; 
strcat (valbuf, ibp) ; 
strcat (valbuf, " ' ") ; 

} 

} 

printf ("%s\n", valbuf) ; 

/* 

** Assemble SQL insert transaction in command 
** buffer using valbuf for values. 

*/ 

dbcmd (dbprocl, "begin tran " ) ; 

dbcmd (dbprocl, "insert into circuit ") ; 
dbfcmd (dbprocl, " values (%s) \n" , valbuf ) ; 
dbcmd (dbprocl, "commit tran "); 


/* Send transaction to SQL server. */ 
dbsqlexec (dbprocl) ; 

/* Get results from transaction. */ 
while ( (return_codel = dbresults (dbprocl ) ) != 

NO_MORE_RESULTS) { 

/* Check results for failed transaction. */ 
if (return_codel == FAIL) { 

printf("DB insert failed:\n"); 
printf ( "%s\n", valbuf ) ; 

} 

} 

} 

/* Close DBPROCESS structure. */ 
dbexit ( ) ; 

/* Close circuits file. */ 
fclose (circuitsf ile) ; 

/* Write "SUCCEED” message to results file and close 
fputs ("SUCCEEDXn", resultsfile) / 
fclose (resultsfile) ; 

/* Normal program exit. */ 
exit (STDEXIT) ; 

} 

/* 

** Function: err_handler 

** Author: (from Sybase DBLibrary Examples) 

*/ 


int err_handler (dbproc, 
oserrstr) 


DBPROCESS 

int 

int 

int 

char 

char 

{ 


* dbproc; 

severity; 

dberr ; 

oserr; 

*dberrstr; 

*oserrstr; 


severity, dberr, oserr, dberrstr 


if ( (dbproc == NULL) || (DBDEAD (dbproc) ) ) 
return (INT EXIT); 


else { 

printf ( "DB-Library error : \n\t%s\n", dberrstr) ; 
if (oserr 1= DBNOERR) 

printf ( "Operating-system error :\n\t%s\n", oserrstr) 
return (INT_CANCEL) ; 

} 

} 

/* 

** Function: msg_handler 

** Author: (from Sybase DBLibrary Examples) 

*/ 


int msg_handler (dbproc, msgno, msgstate, severity, msgtext, 
srvname, procname, line) 


DBPROCESS 

DBINT 

int 

int 

char 

char 

char 

DBUSMALLINT 


*dbproc; 
msgno; 
msgstate; 
severity; 
*msgtext ; 

* srvname; 

*procname; 

line; 


{ 

printf ("Msg %ld, Level %d, State %d\n", 
msgno, severity, msgstate) ; 

if (strlen (srvname) > 0) 

printf ("Server '%s', ", srvname); 
if (strlen (procname) > 0) 

printf ("Procedure ' %s', ", procname); 
if (line > 0) 

printf ("Line %d", line); 
printf ( "\n\t%s\n" , msgtext); 
return (0 ) ; 

} 


o 


